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Note 


This study was performed at York 
University under a contract between the 
Simcoe County Joint Post-Secondary 
Planning Committee and the Government 
of Ontario. Funding was provided by 
the Ministry of Treasury, Economics, 
and Intergovernmental Affairs; and 
administered by the Ministry of Colleges 
and Universities. Much appreciated 
advice, assistance, and information were 
supplied by a number of agencies, listed 
in the Appendices. Special thanks are 
due to Margaret R. Stephenson, for 
computer programming and research 
assistance; and to Kathy Turner, for 
very capable typing. Nevertheless, all 
views and opinions expressed herein are 
those of the author and do not necessar- 
ily reflect those of York University, 
the Planning Committee, nor any 


governmental agency. 


1if™ Incroaquction 


This study had three basic aims. Its first was to 
collect demographic data about constituent areas within 
Simcoe County, appropriate to a methodology for project- 
ing population changes into the future under various 
assumptions. The second was to collect data about the 
impact of those populations on full-time enrolment in 
Ontario post-secondary institutions, so that population 
projections could be interpreted in terms of future 
enrolments. Thirdly, a computer program was to be 
developed for use by those interested in exploring 
possible scenarios of demographic change and program 
participation; and the program was to be adaptable for 
use in forecasting demand for school enrolments and others 


social services. 


We have spent about sixty percent of the money 
budgeted and have realized about seventy percent of the 
objectives. Devising the computer programs was easy 
compared to the difficulty of collecting reliable data 
needed to make the projections 'realistic'. We had 
hoped to obtain much information locally in the County 
but did not find it. Almost all data was found in 
Toronto or Ottawa; and under pressure of time we have 
settled for data which is adequate but not in the form 
or detail we would have wished. However, as time goes 
on the desired formats may become available and the 


programs can be appropriately updated. 


The differences between population projections 
produced in this study and those already available from 


provincial and federal authorities are, first, that 


the level is extended from county level to the level of 
township, town, village and city within the county; and 
second, that annual net migration is distributed to each 
such census subdivision according to its stage of devel- 
opment at the start of the projection. The population 
is calculated by single year of age and by sex for each 
census subdivision. The user may specify any desired 
level of net migration for the county in any year from 
1977 to 2016. The distribution by age and sex of shares 
of county net migration is accomplished within the model. 
Thus each geographical unit generates its own projection 
based on its individual characteristics, and the county 
projection is the sum of the components. The user may 
adjust area characteristics as desired. A limited (but 
expandable) facility is built in to utilize geographic 
co-ordinates for mappings and other calculations based 


on spatial distribution of population. 


We would have preferred to have incorporated a 
'feedback' into the computation, by which net migration 
and fertility rates might be made responsive to land 
use pressures and perhaps other factors. It was decided 


to leave this for later development. 


Projections of post-secondary enrolment are produced 
by applying age- and sex-dependent participation rates 
to populations. In the present version, participation 
rates are assumed constant and so the variation in 
enrolment is strictly determined by changes in age and 
sex distribution within the population. Variations in 
participation rates can be studied independently for 


any given population projection; and by appropriately 


defining participation data for other services (e.g. 
elementary and secondary schools, health services, etc.), 
the impact of population on such services can be 


projected. 


This study report contains a summary of statistical 
data collected, a description of the computational 
method, program listings, and output from a sample run. 
Additional reference materials, including contents of 
1971 Census Enumeration Records in printed and tape 


form are available from the author. 


This report was prepared in draft in September 1978. 
In the meantime, figures for 1978 Fall entry to univer- 
sities and CAATs have become available, and the tables 


and figures have been updated where possible. 


2. Population Model 


It is in the nature of statistical estimates that 
the larger the aggregate being estimated, the smaller 
the probable percentage error. Consequently demographers 
feel the ground becoming increasingly slippery as they 
move population estimates down from federal to 
provincial level; and they generally stop at county 
level. On the other hand, educational and municipal 
planners are forced to work from neighbourhood level 


upward/ and the two directions do not necessarily meet. 


The model in this study is aimed at bringing the 
two directions closer together: populations are 
projected at the level of census subdivision and 
aggregated to county level where the result may be 
compared to projections produced on a federal and 
provincial level. At the same time county-wide average 
figures for fertility rates (births per 1,000 females 
by age per year) and mortality rates (deaths per 1,000 
persons by age and sex per year) are used for all 
subdivisions; and total annual net migration is 
specified at the county level. The result is necessarily 
a compromise - migration within the county is ignored, 
as well as any local variations in fertility and 
mortality. Most important, the age and sex distribution 
of net migration, and the share of county net migration 
going to each subdivision, is allocated by a rule whose 
basis is empirical but whose application may seem 
arbitrary. We would argue that the result is more 
useful than anything yet available; but not that it is 


perfect. More important, the computations are mechanized 


so that those who wish may explore the consequences of 


different sets of assumptions. 


2.iop rertililcy pand Mortality 


In principle, population models are simple 
applications of the law of conservation of mass: the 
numbemrolt {people jat\ tame, T 1s the number at time 0, 
plus births and in-migration minus deaths and out- 
Migration in the interval O0-T. One can observe, with 
Malthus, that the number of births and of deaths is 
proportional to the existing population; and hence 
derive ‘fertility rates' and ‘mortality rates' which 
are helpful in estimating numbers of births and deaths 
in future intervals of the same length. Givena 
Starting population, and birth, death, and net migration 


rates over time, the calculation is straightforward. 


In practice the dependence of fertility and 
mortality on age and sex,and their variation in time, 
are too important to ignore; and time intervals greater 
than one year introduce intolerable inaccuracies. The 
demographer is constantly struggling to ensure that data 


collected over time is consistent and accurate. 


Migration across county boundaries is not subject 
to record-keeping as are births and deaths; and in 
practice net migration is derived from the difference 
between actual and natural increase, after the actual 
increase is known. Census counts of population are 
made only every five years, and it follows that all 


population figures after one census are estimates until 


the next one is taken and interpolations performed. 
(This can lead to much confusion: published 'historical' 
population data for non-census years should be viewed 


with scepticism.) 


The fuzziness of migration data means that 
fertility and mortality rates for non-census years are 
also suspect, and consequently recent 'trends' in such 


figures may be misleading. 


Nevertheless, to perform a calculation one must 
begin with numbers. Data on births and deaths in 
Simcoe County are given in Tables 2-1 and 2-2, respec- 
tively. (Figures for 1971 include the Townships of 
Rama and Mara.) Table 2-3 gives census population 
figures for Simcoe County by age and sex. To derive 
fertility and mortality rates births and deaths were 
divided by the same-year population of appropriate age 


and sex. 


Because so much has been written about changes in 
fertility and birth rates in Ontario, a brief comment 
is appropriate. In figure 2-1, the fertility rates for 
Simcoe County in 1971 are compared with the fertility 
rates for Ontario in 1976 and the figures used in 
population projections 0 and 1 included here. There 
was a drop in Simcoe County in age ranges from 1971 to 
1976, but 1976 was somewhat above the level for Ontario 
in 1976. Figures for ‘Ontario 1975' were used in the 
computer program because they were given for smaller 


age groups. 


The drop in birth rates since about 1960 has been 
extensively discussed by Gencecapners. THe OLrt vou cy 
with these discussions is that they usually assume a 
leveling off two to five years in the future after 
the date of the report, a horizon which continually 
recedes. A convincing basis for choosing likely values 
is absent; and in any case, net migration is expected 
to be the dominant factor and major source of uncertainty 


in Simcoe County's future. 


2,2. Net Migration 


Population projections were among the earliest 
examples of the uses of calculus: integration of a 
process where the rate of growth is proportional to 
the existing population yields an exponentially rising 
population. Ecologists testing this Malthusian 
Simplification discovered that for many populations, 
growth departs from the exponential, becomes linear 
for a time, and then bends over to become asymptotic 
to an upper limit determined mainly by food supply. 
The curve traced out is the classic 'S' curve, or 
logistic curve. Apparently such populations sense an 
upper limit of numbers some time before they actually 


reach it.* 


* The report ‘Limits to Growth' by the Club of Rome 
might be regarded as such a warning to humans, by 
Suggesting that if current global population and 
resource comsumption growth is not curbed, the 
inevitable and rather early result will be penetration 
of the upper limit, followed by catastrophic population 
collapse due to famine and/or resource exhaustion 
and/or toxic human and industrial waste accumulation. 


The long life span and generation time of humans 
slows down the response of population numbers to environ- 
mental stimuli. A 'zero net migration" calculation for 
Simcoe County shows that population would continue to 
coast upwards, reaching a maximum about 2011 and then 
beginning to decline. If the gross reproductive rate 
(number of children born per female during her lifetime) 
is at or above the replacement value (about 2), there 
will exist some age distribution where deaths per unit 
time continuously equals births, and population 


would stabilize. 


Nevertheless, it has been suggested that the 'S' 
curve is a reasonably good approximation to the 
population growth in a given area, because migration 
is sensitive to upper limits on population density, and 
fairly quickly responsive. The same authors suggested 
that the age and sex distribution of net migration are 
characteristic of the 'location' of the area on the 
S-curve, and produced empirical graphs (see appendix IV 
figures 1-5) corresponding to five segments of the S- 
curve. The assignment of an area in Simcoe County to 
a specific segment required two counts for the area 
plus a figure for its upper limit capacity, available 
from the Simcoe-Georgian Task Force study. The 
counts were census populations of 1971 and 1976, and 
the areas were thereby defined as census subdivisions 
(see tables 5A and 5B). 


Computation using assumed future migration scenarios 


requires assigning a share of total county net migration 


to each census subdivision. The procedure followed was 
to calculate the net migration received by each area and 


the county in the five-year intercensal period 1971-1976. 


The model therefore assumes that each area's age 
and sex distribution and share of net migration does 
not change during the time of the projection. It also 
assumes that area boundaries remain constant. These 
assumptions make the model cheap and workable if not 
wholly satisfactory. They become less realistic the 
longer the horizon is extended. Both 'The Limits to 
Growth' and 'Mankind at the Turning Point' provided 
elaborate systems describing the influence of social, 
economic, and natural factors on fertility, mortality, 
and net migration; but so far such models have not been 
developed for areas as small as a county despite some 


erforts in that direction. 
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3. The Geography of Simcoe County 


The word 'demography' implies study of the spatial 
distribution of population and of its characteristics. 
The distributions are hypothetically determined by 
geographical features, natural or man-made, such as land 
quality, water supply, roads, and schools. Changes in 
distributions are believed to be partially controllable, 
for example by the control of land use, siting of roads 
and facilities, and provision of water, sewer and other 
public utilities; and are partially the result of complex 


economic and social forces. 


It follows that mapping is essential in demography 
and any planning connected with it. Both population 
statistics and physical features must be related to a 
common grid system. For convenience in analysis, the 
grid and the numbers should be computer-readable 
(providing the requisite computer programs and plotting 


facilities exist). 


The process of converting Simcoe County geography 
and demography into computerized form was somewhat 
furthered in this project, although much remains to be 
done. The City of Toronto Planning Board has an advanced 


system which is an example of what can be done. 


In the 1971 Census, Statistics Canada made provision 
for creating computerized spatial population information. 
The smallest unit of population counted is called an 


Enumeration Area, averaging about 400 persons*. Each 


* The average may be 400, but the range in Simcoe County 
was from 60 to 1815 persons; which made our early 
computer maps look rather strange. 


province, county, township, and each incorporated city, 
town, and village with local government is divided into 
an appropriate number of EA's; and the centroid of each 
EA has been located in the Universal Transverse Mercator 
grid system. This is a 'metric' system - the grid is 
numbered off in kilometres; and the newer series of maps 
(l: 25,000, 1: 50,000, etc.) from the federal and 
provincial governments are marked with this grid. Con- 
sequently it is possible to relate physical and population 
characteristics to each other, by translating features 
from maps to computer-readable form (and by plotting 


overlays onto physical maps). 


With the help of the Geography Department, Faculty 
of Arts, York University, the outer boundaries and 
township boundaries within Simcoe County were 'digitized' 
from maps and expressed in the UTM grid system. Also, 
the locations of high schools in the county were recorded 
in the same system. For further development as a planning 
tool, the conversion to computer records could be 
continued: rails and roads; land values and uses; 
geological features; agricultural land quality; and so 
On and on. Figure 3-1 is a computer-plotted map showing 


township boundaries. 


It was decided to use the census subdivisions as the 
basis for spatial distribution of population in the 
projections. On the one hand, computing costs increase 
as the number of subunits increases; on the other, larger 
units mean a coarser representation of the true distribution. 
The census subdivisions enjoy the advantage of appearing 


in published tabulations of births, deaths, population, 


Br i ae 


area, and other characteristics necessary to add them to 


the model. 


Table 3-1 gives selected characteristics of each 


census subdivision. 


3.1 Assignment to Stage-of-development status 


Land use areas in part 1 were calculated by using 
the concession and lot-line grid in each township to 
divide the township into rectangles of about 0.4 sq. km. 
Each rectangle was assigned a land use according to a 
map prepared for the Toronto-€entered Region Study in 
1971. We were primarily interested in comparing popula- 
tion densities between urban and rural areas, leaving 
out of rural areas land uses considered unlikely to 
attract housing. The comparison is still very rough: 
non-residential areas in urban places are not allowed 
for. The population density was one factor used in 
assigning a subdivision to an S-curve segment: the 


higher the density, the higher up the S-curve. 


The figure below shows the S-curve schematically 
and the segments corresponding to five stages of 


development: 


A: rural: small, aging, population; negative 


net migration as farmers retire to towns 


B: rural: small population; in earliest stage 
of development (commutershed); positive 


net migration 


C: rural-suburban: rapid growth; positive 


net migration, young families 


D: suburban-urban: slower growth, development 
reaching saturation, land prices increasing 


and incoming migration older 


E: urban: land nearly filled up; small net 


migration; population stable and aging. 


Population 
os a upper 
amt 


The S-curve 


Mie ss-curve has the equatren=-P Sa a 


where P is population 
t, is starting year 
@ is number of years past starting year 


Kis capacary, 


Rearranging and taking logs of both sides 


the equation is seen to be in the form of a straight line 


sean CAN oe 


Ko = 2 


in ee = Ey versus 8: Iln( ) = bO + a. 


The slope b and vertical-axis-intercept a can 
be calculated from the 1971 population, the 1976 
population, and the capacity, for each subdivision. 
If the 1976 population is greater than the 1971 popula- 
tion, and both are less than the capacity, the slope 
will be negative; and, as time passes and the population 
becomes closer to the capacity, the log will become 
more negative. The number of years required to reach 
a given negative value is thus a measure of the 
subdivision's rate of progress along its own S-curve; 
and the rate is a clue to its location on the curve. 
Figure 3-2 shows log versus time lines for townships 


in Simcoe County. 


Each census subdivision was assigned to a stage- 
of-development category based on the number of years 
required to reach 1% of capacity at the growth rate 
1971 to 1976; and the population density of its total 
residential and agricultural areas in 1976. The 


assignments are shown in Table 3-1, part l. 


3.2 Share of Net Migration 1971-1976 


As mentioned earlier, net migration is not directly 
recorded* and is estimated by subtracting natural increase 


(births minus deaths) from population change. 


* Good estimates can be made from changes in Family 
Allowance and Canada Pension address changes; and from 
changes in Municipal Enumeration data. 


Net migration may be either positive or negative. To 
calculate share of county net migration for each census 
subdivision, the populations in 1971 and 1976 and 
births and deaths in that interval, were used. Some 


figures were estimated where tables were incomplete. 


3. > rOputAClOnsCencroid 


The centroid is the 'center of gravity" or 'balance 
point' of the courity's population. The centroid is the 
point at which the airline travel distance to provide 
a service to the population from a single facility is 


a minimum. 


The co-ordinates of the center of each census 
subdivision are multiplied by the population of that 
subdivision, and divided by the whole population: 

X (LP, X;) wots ee The smaller the subdivision, the 


X 
more accurate the centroid calculations. 


The 1976 centroid for Simcoe County was about 
0.894 km. west and 0.457 km. south of Midhurst. The 
movement of the centroid is calculated with the population 


projection. 


3.4 Population Characteristics - 1971 Census 


A computer file of 1971 Census data for each EA was 
selected from files in the library of the Institute for 
Behavioural Research, York University. Each record 


contains 987 data elements covering education, housing, 


occupations, income, and other matters. Some informa- 
tion is derived from a 100% survey (every person in the 
EA was queried); and the remainder is extrapolated from 
a 30% survey using a longer and more detailed 


questionnaire. 


A listing of the contents of those records is 
available from the author, as are copies of the computer 
file on tape. There are three ways this data can be 
aggregated and/or plotted: selecting by identification 
number (e.g. naming and adding all the EA's in a given 
Township); second, by range of coordinates (e.g. 
selecting all the EA's in the southern half of the 
county); and third, by selecting all EA's having a given 
characteristic, and plotting their location (e.g. location 
of EA's where mother tongue is French for more than X$% 


of the population). 


FIGURE 3-1 
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4. First Projection 


As an example of the workings of the model, a 
projection was computed assuming a constant county net 
migration of 3,000 per annum. That figure is about 
half the average annual net migration from 1971 to 1976, 
calculated from census figures; and it is about twice 
the net migration in 1976-1977 calculated from enumera- 
tion (property tax) populations. It produces a county 
population in 1981 very close to the CODE estimate; 
and a population in 1991 about 90,000 less than the 
Simcoe-Georgian Task Force target for that year. In 
brief, an assumption of 3,000 p.a. net migration lies 
somewhere in the mid-range of values expected by some 
knowledgeable people. The resulting county population 


is plotted in figure 4-l. 


Details of the results are given in the appendix: 
a set of projections for each of the census subdivisions 
and for the county, by age group and sex, with shares of 


births, deaths, and net migration. 


Graphs of the population of each subdivision are 
given here in figures 4-2 through 4-7*. In these graphs 
are shown the consequences of assumptions concerning 
assignment of each area to a segment of the S-curve 
(which determines the flow direction by age and sex of 
its net migration) and fixed share of county net 
migration, which was based on shares of 1971-1976 net 
migration. It will be observed that there are several 
subdivisions in which the SGTF - defined capacity is 


exceeded (in Tiny as early as 1986) and others never 


* Please note that the scales of these graphs are different. 


ce 


reach their capacity. In part this is because the SGTF 
capacities envisioned future changes in boundaries which 
would keep rural areas separate from urban areas: for 
example, Tiny's excess would be annexed to Midland or 
Penetang. Nevertheless it strongly suggests that 
development trends in 1971-1976, if allowed to continue, 
would sooner or later create undesireable contradictions 
between land use plans and realities. The computer 


program is designed to facilitate exploring alternatives. 


Another effect of the choice of S-curve assignments 
may be seen in the changes in age distribution shown in 
figure 4.8. In this figure, the age distributions from 
the 1971 and 1976 censuses are compared with the calculated 
1986 age distribution from cases 0 (zero net migration) 
and 1 (3,000 p.a. N.M.). Age groups are plotted at their 
midpoint, and 10-year groups have been divided in half 


to facilitate comparison. 


The 1976 and 1971 graphs show general features 
Similar to Ontario as a whole, as reported in the CODE 
report*: an increasing dip in ages up to 10, a plateau 
about 30, an increasing overall downward slope towards 
the higher ages. Since only deaths and migration affect 
the membership of cohorts above 1 year old, the 
displacement of a point over five years (see arrow) is 
the net result of these flows. Evidently the bulk of 
1971-1977 net migration was in the age ranges from about 
20-30, 5-15, and 35-40 in that order of significance. 


With zero net migration, in 1976-1986 all cohorts 


* see chart 2.9, CODE report. 


~ [9 = 


get ten years older and a little smaller, while birth 
rates keep the 0-4 age group almost constant. With 
3,000 p.a., the choice of S-curve segment assignments 
has produced substantial increases in the 20-40 age 
groups, and because these include the ages of greatest 
fertility, the number of children up to 10 has increased. 
Nevertheless the number of children in elementary, 
secondary, and post-secondary age groups shows a decline 
from 1976 levels. The changes in age group sizes over 
the whole projection period are shown in figure 4-9 to 
4-13. Clearly the age and sex distribution of net 
migration is at least as important as total numbers, 


and bears further study (see conclusion). 
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Figure 4-13 
Case l: 3,000/year constant net 


Population Projections for rahe nem 15-9-years 
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5. Forecasts of Post-Secondary Enrolment 


From the projected populations we can derive 
enrolment forecasts by assuming 'participation rates'* 
appropriate to each program or group of programs. 
Because we calculated population by single year of age 
and sex, we were able to utilize participation rates 
defined at that level of detail; whereas most published 
rates are referenced to the 18-24 age group. 


For university programs, Statistics Canada supplied 
us with tabulations from the University Student 
Information System (USIS) for the years 1972 through 
1977. The USIS files contain all students registered 
in Canadian universities as of a common Fall date: 
December 1 in years 1972 - 1975; November 1 thereafter. 
However the student's home county is recorded only by 
universities in the same province, so that the tables 
supplied to us include only students in Ontario 
universities. The student's home county is recorded 
by the Ontario Universities' Application Centre (OUAC) 
for applicants entering full-time undergraduate study; 
and by the university for all other students, and the 
universities have not always been as diligent as might be 
desireable. Consequently the participation rates for 


part-time studies may be somewhat understated. 


For full-time programs of the Colleges of Applied 
Arts and Technology, the College Affairs Branch of the 
Ministry of Colleges and Universities, maintains.an every- 


student file of data collected by each College. 


* "participation rate' is dimensionally the same as 
fertility or mortality rates, i.e. persons participat- 
ing per 1,000 persons in a group. 
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Tabulations are produced each year where students are 
grouped by high school attended and College attended. 
Rather than figures for age of student, we obtained 
details of the last grade attended in high school and 
whether the transition to a CAAT program was direct or 
delayed. Consequently the ‘participation rates' are 
currently here defined in terms of new entrants to 


CAAT programs. 


We obtained equivalent data from OUAC for applicants 
and registrants entering Ontario universities from 
Simcoe County high schools. Consequently we were able 
to compare flows from those high schools to full-time 
study in CAATs and in universities, for the past few 


years. 


The flows from the high schools can be compared to 
flows within the school grades using enrolment data 
supplied by the Ministry of Education. Projecting 
enrolments at the county and provincial level by the 
"cohort ratio' method of projecting educational program 
enrolments is a standard procedure. It assumes that the 
change in group size as students move from one year level 
to the next is nearly constant (or at least that its 
trend is predictable), so that the size of a group N 
years in the future can be estimated from a current 


group size. 


Syed: Short-term forecasts 


Figure 5-1 shows how cohort ratios in Simcoe County 
high schools have behaved since 1969. Each horizontal 


- 22 - 


line is a grade level, and the top line (100%0 is the 
group in grade 9. The next line down is the fraction 
which the following year's grade 10 is of grade 9, and 
so on. The lines for the 1975 grade 9 are incomplete 
because that cohort had only reached grade 11 by 1977, 
the last year for which we have enrolment data. It is 
clear that, although there has been some variation in 
the ratios of Grades 12, 11 and 10 to grade 9, the ratio 
of grade 13 and of year 1 university have remained fairly 
Stable (but the latter has trended downward since 1975). 
Consequently we can make a rough estimate of university 
intake for up to five years from 1977 from our knowledge 
of the grade 9 enrolment to that date: the range (see 
figure 5-2) appears to be 400-500 per year (about 5% of 
the 19-year age group) .* 


Students enter CAATs from both grades 12 and 13, so 
the flows from each level must be Separately calculated. 
The total of the two components appears (figure 5-4) to 


be in the range 450-550 per year. 


Extending the horizon by looking further down the 
grade levels, we find a warning of future reductions. 
Figures 5-3 and 5-4 are enrolments plotted by grade 
level in 1971 and 1977 respectively. In 1971, enrolment 
was relatively flat in the elementary grades, peaked in 
grade 9, and declined rapidly to grade 13. In 1977, a 
pronounced dip is observed in the middle elementary 
grades, (about 400 students below 1971 levels in grade 
4), a dip which will reach the universities and colleges 
in the mid-1980's. 


* graphs for comparison of other countries with Simcoe 
County are to be found in Appendix V 
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As shown in figure 5-2 the total flow of students 
to Ontario universities and CAATs has been stable at 
around 850-880 since 1974, but the proportion attending 
each type of institution has varied. Attendance at 
CAAT's has increased since 1975, matched by a decrease 
in university attendance; and in.1977, CAAT entrants 
exceeded university entrants for the first time. In 
1978, flows to both types of programs increased and 


exceeded one thousand for the first time. 


5-2) sLong=term Forecasts: for Simcoe County participation 
in Ontario Post-secondary Programs 


The computer program which prints out a population 
projection on paper also writes on magnetic tape a 
record for each fifth projection-year of the calculated 
values of population in each subdivision and the county 
total, by age and sex. This tape then becomes part of 
the input data, along with participation rates (by age 
and sex) for the activity in question, to the program 
which computes enrolment forecasts. Thus it is not 
necessary to recompute a population projection for each 


trial of a set of participation rates.* 


The participation rates used in this initial 
example were based on 1976 figures, assumed constant 
throughout the forecast period so that forecasts 
strictly follow changes in age and sex distributions 


in the population projection. 


For purposes of studying spatial distribution of 


* copies of the types are available at cost of repro- 
duction, for those who wish to try their own forecasts. 


~ 


demand, the calculation of enrolments in post-secondary 
programs was applied to each census subdivision and 

the results printed out at five-year intervals. Tables 
5-6 and 5-7 give the county summaries for enrolment in 

universities, and new CAAT entrants from Simcoe County 

high schools, respectively. The detail of age and sex 

distribution reflects the differences in data available 


for estimating participation rates. 


As plotted in figure 5-6, the total university 
enrolment shows an increase to a plateau at 1981-1986, 
then a continous rise to the end of the period. However 
the age mix, and mix of program enrolments, changes 
substantially over 28, mostly in part-time Study, rises 
to become almost one-third of the total enrolment in 
2011. Full-time enrolments are sensitive to the dip in 


the 18-24 age groups in the 1980's and early 1990's. 


In figure 5-8, which shows the projected intake to 
Ontario CAATs from Simcoe County high schools, the 
projected drop-off of 18 and 19 year-olds in the 1980's 
is shown more clearly. This pattern agrees generally 
with Statistics Canada and CODE projections, in the 
sense that all project a peak to be followed by a hollow. 
However, the timing of the maxima and minima in each 
projection depends on the initial population and assump- 
tions about the size, age and sex distribution of net 
migration. Because diploma programs are of somewhat 
shorter duration than degree programs (one, two and 
three years compared to three, four or five years), CAAT 
total enrolment tends to follow the intake pattern fairly 


closely. Consequently, figure 5-8 indicates that Simcoe 
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County's contribution to CAAT enrolment may bottom some- 
time in the late 1980's, and begin to recover while the 
university enrolment continues to decline (slightly) 


until the early 1990's. 


5.3 Potential Enrolment in a full-time degree program 
in Simcoe County 


Currently, persons wishing to study for a university 
degree full-time must go outside the county. Part-time 
study in the county is possible through programs offered 
by Wilfrid Laurier University, mainly in a six-week 
summer day session but also in Fall/Winter session 
evening courses at various locations. Also, Glendon 
College of York University has offered an average of two 
courses in summer and Fall/Winter sessions to the franco- 
phone community in and around Penetang. The two institu- 
tions accept each other's credits and co-operate through 
the committee which initiated this study. A proposal to 
develop a full-time day program in Orillia, to be called 
Simcoe College, has been actively supported there for 
more than ten years; and Wilfrid Laurier University sought 
and was awarded in 1978 the responsibility for its 
development. An objective of this study has been to 
estimate the potential enrolment, and hence the viability, 


of a full-time degree program. 


In these times of financial stringency in post- 
secondary education, brought about in part by general 
economic conditions, and in part by shifts in government 
priorities which in turn are influenced by popular 


desires and by population forecasts, the prior question 
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is whether existing post-secondary programs serve the 
people of Simcoe County as well as other parts of our 
province are served. The answer appears to be a quali- 
fied affirmative on an ‘average basis', but negative 


for many individuals. 


On the affirmative side, the fraction of high school 
students entering university (see figure 5-1, 5-2 and 
Appendix V) are in the same range as other similar juris- 
dictions: 'similar' in the sense of fraction of urban 
middle class and pf¥eésent convenient access to university 
campuses. These are really two parts of a feedback loop: 
generally, post-secondary students are drawn from the 
upper middle and upwardly-mobile lower classes, and those 
groups tend to move themselves to places where their 
children will have access to desired programs. (The same 
phenomenon is observed at elementary and secondary levels.) 
However the time delays in changing social mixes are 
measured in decades, and other economic conditions must 
also be satisfied. We hope to study such feedback effects 


later. 


The reaction of a population to readier access to a 
university campus may be measured in years and the 
Magnitude of the immediate effect is, roughly, indicated 
by the last graph in Appendix V: the fraction of Simcoe 
County students leaving high school and entering university 
might rise from about 32% to about 42% (Regional Municipality 
of York), or in absolute numbers (1976) about 150 per year. 
This figure would be subject to the same kind of fluctuation 
as shown in figure 5-8: it is already on a decline which 
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would drop to about 120 in 1978. 


There are, of course, other factors to be considered: 
the attraction of additional students from Muskoka, Parry 
Sound, Victoria County and so on; as against the ‘'counter- 
attraction' of CAAT programs and of other universities. 

For example, Georgian College draws only about 30% of its 
enrolment from Simcoe County, and only about half of the 
total Simcoe County enrolment in CAATs. As we have already 
remarked in section 5-2, flows to CAATs are about the same 


as flows to universities. 


Let us suppose, on the basis of Georgian College 
experience, that the factors tending to increase intake 
to an Orillia program were to balance those tending to 
decrease it. Our conclusion, then, is that academic 
program planners should be basing their planning on a 
"worst case’ intake of between 125 and 150 per year for 
the next ten years at least, to a full-time degree pro- 


gram offered in Simcoe County. 
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6.0 Conclusions 


The results of this project are preliminary and 
demonstrative, rather than conclusive. We have shown 
what may happen in Simcoe County if trends during the 
period 1971-1976 were to continue for fifty years. On 
the one hand, no one really expects such constancy; but 
on the other hand, we now have a ‘base line' against 
which to compare the effects of such changes as may be 
postulated. It appears quite clear that many changes, 
levered by government control over land use and services, 
will indeed be necessary to distribute growth to those 
municipalities which can absorb it and away from those 


who are likely to be 'saturated' if the trends continue. 


The computer programming is 'general' in the sense 
that other counties, or indeed the province as a whole, 
could be treated by it with appropriate redefinition of 
input data - that is, of geographical divisions and 
their characteristics, and of participation rates for 


social services. 


The projections indicate that enrolments in post- 
secondary programs will, if participation rates do not 
change, grow slowly in the next five years and then drop 
for a further five years. The lowest year, taking 
account of the length of degree and diploma programs, 
will probably be 1987-88. There should be ample advance 
warning from high school enrolments. 


Participation rates for Simcoe County, somewhat 
lower than other jurisdictions with higher numbers of 


urban middle class or handier access to a campus, but 


= 10 ae 


nevertheless ‘about average', are not constant. Like 
the weather, there is more discussion than understanding 
of the forces which alter such rates. One may speculate, 
however, that the increasing variety of programs will 
bring a mutual reinforcement, and in turn strengthen 


offerings in the County. 


6.1 Loose Ends 


Further work on this project would help to make the 
Projections and) forecasts more Jrealistic! particularly 
in the 1-10 year and 25-50 year ranges, and for individual 


subdivisions: 


1b) The 1976 starting population figures should be 
Single-year of age, by sex, instead of five- 
year groups. (Unfortunately, Statistics Canada 
rounds all such figures to the nearest 5 so 
that the totals do not agree with published 
totals. We chose to stick with five-year 
groups.) 


2) Fertility rates should be time dependent. 
Single-year of age fertility and mortality 


rates could be used. 


3) A number of scenarios of net migration should be 
attempted until a development plan is 
formulated in which capacities of individual 
census subdivisions are not exceeded. The 
practicality of such a plan may then be 


assessed. 


4) More use of USIS and OCIS should be made to 


5) 


6) 


i) 


2) 


3) 


ie = 


improve our definitions of participation rates 
for various kinds of post-secondary programs. 
Provision should be made for time-dependent 


participation rates. 


More comparisions should be drawn between 
Simcoe County and other areas, in matters such 
as high school cohort ratios and flows to 
CAATs and Universities. (See Appendix V) 


The age-and sex-distributions of net migra- 
tions and in each of the S-curve segments 
should be based on local data. (This requires 
single-year-of-age populations interpolated 


for intercensal years at the county level.) 


Other steps could make the Program more useful: 


Further development of computer-mapping and of 
programs to compute distance/time quantities 
to support siting choices, services routing, 
etc:. 


Definition of participation rates for com- 
munity services, perhaps responsive to rates 
of growth or other indicators of social 


stresg eo. 


The population-projection program could be 
revised to redistribute shares of net migra- 
tion and stage-of-develpment status when 
subdivisions approach their capacity. This 
could be arranged either 'interactively' 
(the user could enter changes during the 
process of a calculation) or by a built-in 
algorithm. 
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APPENDIX I 


POPULATION PROJECTION FOR SIMCOE COUNTY: 


CASE WITH ZERO NET MIGRATION 
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PL/I OPTIAIZIUG COFPILER B.RG: PROC OPTIONS (MAIN) ; 


SOURCE LISTING 


STAT LEV RT 


1 © ARG: PROC OPTIONS (MAIN); 
7* POPULATION PROJECTION PROGRAM POR SIMCOE COJMTY */ 
/* AUGUST 1978 */ 
2 1 O DCL INPIL PILE RECORD INPUT; /* CARD IMPOT */ 
3. 1 O DCL ONTFIL FILE RECORD OUTPUT; /* OUTPUT PILE */ 
2) oO pcr “tT INT staTrc; /* WAKE OF CITY, TOWN, VILLAGE */ 
2 TITLE CHAR (80) ; /7* O8 TOWNSHIP */ 
5 1 0 DCL 1 IN2 STATIC, 
2 AREA PIC'9999¥99', /* LAND AREA (SQ KMS) */ 
2 PILL1 CHAR (1), 
2 AREA2 PIC'9999V99", 7* RES/AGR LARD AREA (SQ KSS) */ 
2 FILL2 CHAR(1), 
2 xCOORD PIC'S99¥99", /7* X CO-ORD FOR CEBTROID */ 
2 FILL CHAR(1), 
2 YcoorD PIC'S99V99", 7* Y CO-ORD FOR CENTROID */ 
2 PILLS CHAR(1), 
2 NANG PIC*S9¥9999", /* WET HIG/TOTAL WET AIG */ 
2 PILLS CHAR(1), 
20s CHAR(1), 7* B,B,C,D,E ON S-CUBVE */ 
2 PILL6 CHAR (46) ; 
6 1 0 DCL 1 IW3 STATIC, /* BALE POPULATION ~- 11 AGE GROUPS */ 
2 MPOP(11) PIC’99999", 
2 PIL2 CHAR (25) ; 
7 14 0 DCL 1 INY STATIC, /* PEAALE POPULATIIN - 11 AGE GROUPS */ 
2 FPOP(11) PIC'99999", 
2 FIL3 CHAR (25) ; 
841 0 Voce Wms srarre, /* COUNTY HET MIGRATION 1977 TO 1996 */ 
2 CRNG1(20) PICc'9999'; 
9 0 Mpc et tive sraAric, /7* COUNTY WET MIGRATDN 1997 TO 2016 */ 
2 CNNG2(20) PrICc’9999"; 
10) 41 (0. DCL, 1 IN7 STATIC, 7* COURTY WET MIGRATION 2017 TO 2026 %/ 
2 CNNG3(10)  PIC'9999", 
2 PILL? CHAR (40) ; 
4117. 1 #O DCL 1 OUTI STATIC, /* NARE OF CITY, TOWN, VILLAGE OR TOWNSHIP */ 
2 OTITLE CHAR (80) , 
2 FILLS CHAR (204) ; 
12. 1 O DCL 100T2 STATIC, /* POPULATIONS OF ALL AGES */ 
2 OPIELD(71) PIXED(7); 
13,9 1 O DCL PP(71,51) FTXED(9,2) STATIC, DP(71) ¥FIXED(5,4) STATIC, 
PM(71,51) PIXED(9,2) STATIC, DA(71) ¥PIXED(5,%) STATIC, 
DASH(118) CBAR (1) STATIC, B (71) PIXED(5,4) STATIC, 
EOF CHAR (1) STATIC, BGH(71) FIXED(9,4) STATIC, 
PoP PIXEN(9,2) STATIC, BGF(71) PIXED(9,4) STATIC, 
GTOTH (12,11) FIXED(9,2) STATIC, 
GTOTP (12,11) FIXED(9,2) STATIC, 
GTOTT (12,11) PIXED(9,2) STATIC, 
TOTS (12,11) ®IXED(9,2) STATIC, SUAM PIXED(7,2) STATIC, 
TOTP (12,11) PIXED(9,2) STATIC, SUMP FIXED(7,2) STATIC, 
TOTT (12,11) FIXED(9,2) STATIC, DEKS PIXED(9,%) STATIC; 
10° 1 O DCL AGEGRPS (71,5) PIXED(7,6) STATIC, 
AGEGRPP (71,51° PIXED(7,6) STATIC; 
1§ 1 O DCL CHN(50) PIXED(5) STATIC; 
16 1 O DCL Cx(11) FIXED(11,2) STATIC, TEEP FIXED(11,2) STATIC, 
CY(11) PIXED(11,2) STATIC, TEMP2 PIXED(11,2) STATIC, 
CTOT(11) PIXED(11,2) STATIC; 
17 1 O DCL BIRTHS4(71,10) PIXED(9,%) STATIC, TOTBM(12,10) PIXED(9,4%) STATIC, 
BIRTUSP(71,10) FIXED(9,4) STATIC, TOTBP(12,10) PIXED(9,4) STATIC, 
DFATHSH(71,10) PIXED(9,4%) STATIC, TOTDM(12,10) PIXED(9,4) STATIC, 
DEATHSP(71,10) FIXED(9,4) STATIC, TOTDF(12,10) FIXED(9,4) STATIC, 
NFTMIGH(71,101 PIXED(9,4) STATIC, TOTNN(12,10) PIXED(9,4) STATIC, 
RPTRIGF(71,10) PIXED(9,4) STATIC, TOTMF(12,10) PIXED(9,4) STATIC, 
TOTBT (12,1% FIXED(9,4) STATIC, TOTDT(12,10) PIXED(9,4) STATIC, 
TOTNT (12,10) FIXED(9,4) STATIC; 
18 1 O DCL GTOTBN(12,10) PIXED(11,4) STATIC, GTOTDN (12,10) FIXED(11,4) STATIC, 
GTOTBP (12,10) PIXED(11,4%) STATIC, GTOTDP(12,10) FIXED(11,%) STATIC, 
GTOTET(12,10) PIXED(11,%) STATIC, GTOTDT(12,10) PIXED(11,4) STATIC, 
GTOTHM (12,10) FIXED(11,4) STATIC, GTOTHP (12,10) PIXED(11,4) STATIC, 
GTOTHT (12,10) FIXED(11,4) STATIC; 
19 1 O DCL TITL(11) CHAR(4) STATIC INIT (*1976",*1981',°1986",°1991",'1996", 
#2001", *2006', ©2011", *2016%,*2021', 2026"); 
20 1 O DCL TIT(10) CHAR(4) STATIC INIT(*1977* "1982", *1987*,°1992','1997"%,"200 
2", *2007*,*2012%,* 2017", *2022") ; 
21 1 © DCL OCOUNT FIXED(5) STATIC INIT (0); 


PL/I OPTIMIZING COMPILER AARG: PROC OPTIONS (HAIN); 
STNT LEV NT 
7 SET TO ZERO */ 

ee oh) DASH(*) = °_%; EOF = 'O'; 

TS ae CX(*) = 0; cY(*) = 0; CTOT(*) = 0; 

rh eee hes) GTOTH (*) =); GTOTF (*) =0; GTOTT(*) =0; 

30 «C1)sOO GTOTBS(*)=0; GTOTDA(*)=0;  GTOTHS (*)=0; 

AS acd GTOTBF(*)=0;  GTOTDF(*)=0; GTOTAP(*)=0; 

46. 7.40 GTOTBT(*)=0;  GTOTDT(*)=0;  GTOTAT(*)=0; 

/* INITIALIZE BIBTA BATES */ 

39 «1 «OO pO I= 10 15; B(I)=0; END; 

a2 1 0 DO I =16 T9 2); B(I)=0.0365; END; 

BS 0 pO I =21 TO 25; B(T)=0.1123; END; 

48 1 0 DO I =26 To 3); B{I)=0.1282; ND; 

Sa ald po I =31 T) 35;  B(I)=0.0645; END; 

54 1 0 DO I =36 TO 4); B(I)=0.0212; END; 

s7 1 10 pO I =41 TD 45; B(I)=0.0044; END; 

60). 71 6 DO I =46 TO 713 B(I)=0; END; 

/* YIPIALIZE DEATH RATES */ 

63 1 0 DA (1) =0.0143; DA (71) =0.0967; 

65. 1. 0 DP (1) =0.0112; DF (71) =0. 0479; 

67 1 0 DO I = 2 TO 5; DA(T) =0.0006; DF(I) =0.0005; END; 
amin abe pO I = 6 TO 12; DM(I) =0.0004; DP(I) =0.0003; END; 
Gi Al a) ho I =11 TO 153; DM(I) =0.0004; DP(I) =0.0003; END; 
79 #1 «0 DO I =16 TO 2); DM(I) =0.0014; DP(I) =0.0004; END; 
83 1 «0 DO I =21 TO 25; D&#(I) =0.0015; DF(I) =0.0005; END; 
an tO DO I =26 TO 30; DM(I) =0.0012; DP(I) =0.0005; END; 
ohm bales DO I =31 TO 35; DA(I) #0.0013; DF(I) =0.0007; END; 
95 1 0 DO I =36 TD 49; DM(T) =0.0020; DF(I) =0.0011; ERD; 
99 1 0 DO I =41 TO 453; DM(I) #00031; DPF(I) =0.0018; END; 
103 «1 =«O0 DO I =46 TO 59; DA(I) =0.0053; DP(I) =0.0031; END; 
167 16 DO I #51 T) 55; DS(I) =0.0091; DPF{I) =0.0046; END; 
eh | ah 8) DO I =56 TO 69; DM(I) =0.0145; DP(I) =0.0071; END; 
150 01) 6 DO I =61 TO 63; DM(I) =0.0223; DF(I) =0.0106; END; 
119 «1 «(0 DO I =66 TO 72; DA{I) =0.0346; DP(I) =0.0177; END; 

/* INITIALIZE AGE & SEX DISTRIBUTION RATES FOR */ 
/7* SIGRATION (A,B,C,D,£ OW S-CURVE) ey 
t 

1230 a0) po I = 170 5 
hide ta a! AGEGRPS (I, 1) = 0.0000; AGEGRPP(I,1) = 0.0000; 
126) 34 AGEGRPS (I, 2) = 0.1319; AGESRPP(I,2) = 0.0998; 
is oot 4 AGRGRPN (T, 3) = 0.0926; AGEGRPF (I,3) = 0.0869; 
130 #1471 AGEGRPM (I,4) = 0.0242; AGEGRPP (1,4) = 0.0242; 
{soe ont AGEGRPA (1,5) #-0.0197; AGEGRPF (I,5) =-0.0112; 
134 #64 «79 END; 
eG ye a) DO I = 6 TO 1); 
en AGEGRP* (I, 1) = 0.0269; AGEGRPP (I,1) = 0.0269; 
SEG aye AGEGRPN (I, 2) = 0.0599; AGEGRPP (I,2) = 0.0706; 
OH AP 8 AGEGRPS (J, 3) = 0.0654; AGEGRPP (I,3) = 0.0628; 
ces | a AGEGRPH (I,4) = 0.0252; AGEGRPP (I,4) = 0.0252; 
{airy 404 AGEGRPH(I,5) = 0.0976; AGEGRPF (I,5) = 0.1186; 
146 21°49 EWD; 
Tite A 0 po I =11 TO 15; 
148 #1 1 AGEGPPH (I, 1) = 0.0223; AGEGRPF (1,1) = 3.0223; 
For ah AGEGRPH (1,2) = 0.0104; AGEGRPF (I,2) = 0.0415; 
s5ome v4 AGEGROF (1, 3) = 0.0306; AGEGRPF (I,3) = 0.0344; 
156 1°14 AGEGRPA (I, 4) =-0.0641; AGEGRPF(I,4) =-0.0641; 
elon he AGEGRPA (1,5) = 0.2212; AGEGRPP (I,5) = 0.1972; 
158 1 4 END; 

159 14°40 DO I =16 TO 2); 

160 4 1 AGEGRPA (I, 1) = 0.0761; AGEGRPP(I,1) = 9.0761; 
1621 «1 AGEGRPH (I, 2) = 0.0323; AGEGRPF (I,2) = 0.0608; 
164 #1 79 AGEGRPH (I, 3) = 0.0122; AGEGRPF (I,3) = 0.0326; 
166 #1 1 AGEGRPS (I,4) =-0.0777; AGEGRPP(I,4) =-0.0777; 
168 234 4 AGEGRPA (I,5) = 0.2115; AGEGRPF (I,5) = 0.1358; 
116) tht END; 
qe) al) DO I =21 TO 23; 

A724) VARNA AGZGRPS (I, 1) = 0.1163; AGEGRPF (I, 1) = 0.1163; 
ey al a AGEGRPS (I, 2) = 0.0848; AGEGRPF (1,2) = 0.0942; 
176 «164 AGEGRPA (I, 3) = 0.0535; AGEGRPP (I,3) = 0.0673; 
{150 Wut AGEGRPAS (I,4) = 0.2539; AGEGRPF(I,4) = 0.2539; 
180 4 1 AGEGRP4 (1,5) =-0.1400; AGEGRPF (1,5) =-0.2082; 
VA2) Tet END; 

4658) (10 FO DO I =26 TO 39; 

7) ee ee | AGFSRPA (I, 1) = 0.0390; AGEGRPF (I,1) = 0.0390; 
186 1 1 AGEGRPH (I, 2) = 0.0900; AGEGRPF (1,2) = 0.0638; 
vee ay 4 AGEGRPH (1,3) = 0.0628; AGEGRPP (I,3) = 0.0601; 
196°. 4° 4 AGEGRPH(I,4%) = 0.2252; AGEGRPP (I,4) = 0.2252; 
1921 1 AGEGRPH (1,5) =-0.2188; AGEG RPP (I,5) ©-0. 1893; 
199 1 °«1 EWD; 
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DO I =31 T) 33; 


AGEGRPR(I,1) = 0.0649; AGEGRPP (I,1) = 0.0649; 
AGEGRPH (I, 2) = 0.0310; AGEGRPP(I,2) = 0.0043; 
AGEGRPA (I, 3) = 0.0382; AGEGRPP (I,3) = 0.0311; 
AGRGRPS(I,4) = 0.1124; AGEGRPP(I,4) = 0.1124; 
AGEGRPS (I,5) =-0.0074; AGEGRPF (I,5) = 0.0666; 
END; 
DO I =36 TO) 4); 
AGEGRPR (I, 1) = 0.0682; AGEGRPP (I,1) = 0.0682; 
AGEGRPS (I, 2) =-0.0099; AGEGRPP(I,2) = 0.0085; 
AGEGRPA (I, 3) = 0.0289; AGEGRPP (1,3) = 0.0306; 
AGEGPPA(I,%) =#-0.0913; AGEGRPP(I,4) =-3.0913; 
AGEGRPA(I,5) = 0.1745; AGEGRPF(I,5) = 0.1734; 
END; 
Do IT =41 TO 43; 
AGEGRPH (I, 1) = 0.0186; AGEGRPP(I,1) = 0.0186; 
AGEGRPR (I, 2) = 0.0322; AGEGRPP(I,2) = 0.0375; 
AGEGRPH (I, 3) = 0.0333; AGEGRPP (1,3) = 0.0348; 
AGEGRPH(I,%) = 0.0544; AGPEGRPP(I,4) = 0.0584; 
AGEGRPA (I, 5) = 0.0554; AGEGRPP (1,5) = 0.0873; 
END; 
DO I =&86 TO 5); 
AGEGRPH(I,1) =-0.0060; AGEGRPP (I,1) =-).0060; 
AGEGRPS (I, 2) = 0.0186; AGEGRPP(I,2) = 0.0080; 
AGEGRPH (I, 3) = 0.0311; AGEGRPP(I,3) = 0.0269; 
AGEGRPF(I,4) = 0.0385; AGEGRPP (I,4) = 0.0385; 
AGEGRPA (I,5) = 0.0398; AGEGRPP(I,5) = 0.0832; 
ERD; 
DO TY =51 TO 53; 
AGEGRPH (I, 1) = 0.0148; AGEGRPP (I,1) = 3.0148; 
AGEGRPR (TI, 2) =-0.0014; AGESRPP(I,2) = 0.0061; 
AGEGRPS (I, 3) = 0.0187; AGEGRPP (1,3) = 0.0163; 
AGEGRPM (I, 4%) =-0.0265; AGEGRPP(I,4) =-0.0265; 
AGEGRPH (I,5) = 0.0628; AGEGRPP(I,5) = 0.0282; 
ERD; 
DO T =56 TO 6); 
AGEGRPH (I, 1) = 0.0172; AGEGRPP(I,1) = 2.0172; 
AGEGRPR (I, 2) = 0.0068; AGEGRPF (I,2) = 0.0093; 
AGEGRP# (I, 3) = 0.0083; AGEGRPP (I,3) = 0.0078; 
AGEGRPH (I,4) = 0.0154; AGEGRPP(I,4) = 9.0154; 
AGEGRPA (I,5) = 0.0152; AGEGEPP(I,S) = 0.0014; 
ERD; 
DO I =61 TO 63; 
AGEGEPR (I, 1) #-0.0107; AGEGRPP(I,1) =-0.0107; 
AGEGRPA (I, 2) = 0.0022; AGEGRPP (I,2) * 0.0002; 
AGPGRPA (I,3) = 0.0046; AGEGRPF (I,3) = 0.0053; 
AGPGRPS (1,4) #-0.0195; AGEGRPP(I,4) =-0.0195; 
AGEGRPR (I,5) = 0.0185; AGEGRPP (I,5) = 0.0218; 

END; 

DO I =66 TO 70; 7 
AGFGRPA (I, 1) = 0.0153; AGEGRPP(I,1) = 3.0153; 
AGEGPPA (I, 2) =-0.0104; AGFGRPP (1,2) = 0.0036; 
AGEGRPR (I, 3) = 0.0024; AGPGRPP (I,3) = 0.0050; 
AGEGRPA (I, 4) = 0.0027; AGEGREPP(I,4) = 0.0027; 
AGEGRPS({I,5) = 0.0164; AGEGRPP (1,5) = 9.0129; 

END; 

dO I = 1 TO 7); 

DOP Dest T3155 
AGEGRPM(I,J) = AGEGRPA(I,J) / 5.0; 
AGEGRPP(I,J) = AGEGRPF(I,J) / 5.0; 
ERD; 

ERD; 

AGEGRPA(71,1) = 0.0371; AGEGRPP (71,1) = 0.9371; 

AGEGRPA(71,2) =-0.0011; AGEGRPP (71,2) = 0.3105; 

AGEGRPH(71,3) = 0.0051; AGEGRPP (71,3) = 0.9108; 

AGEGRPH(71,4) = 0.0272; AGEGRPP (71,4) = 0.0272; 


AGEGRPA(71,5) =-0.0081; AGEGEPP (71,5) =-0.9006; 
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@iRG: PROC OPTIONS (HAIR); 


OPEN FILE (INPIL) INPUT; 
OPEN PILE (OUrFIL) OODTPUT; 

/* READ I¥ COUNTY WET BIGRATION FOR */ 
READ PILE (INPIL) INTO (IN5); /* 1977 TO 2026 es 
READ PILE (INPIL) INTO (IN6) ; 
READ PILE (INPIL) INTO (147); 
pO I = 1 TO 2); 


CNR (I) = CNAGI(I); 
CWN (1¢20) = CHNG2(T); 
END; 


DO I = 1 TO 1)3 
CHA (T#40) = CWHG3(T); 
END; 


ON EWDPILE (I¥FIL) BEGIN; 
POT PAGE EDIT (*TOTAL POPULATIOW PROJECTIDB FOR SIBCOE COUNTY’) 
(% (25), (45)) 5 


BOP = '1°; 
GOTO HEAD; 
END; 
READ: /* SET TOTALS TO ZERO */ 
PF (*) =0; POTP(*) =0; 
Pa (*)=0; FOTN (*) =0; 
DENS=0; POTT(*) =0; 


BIRTHSN(*}=0;  DEATHSM(*)=0; WETHIGH(*) =0; 
BIRTHSF(*)=0; DEATHSP(*)=0; WETNIGP(*)=0; 
TOTBN (*)=0; TOTDA (*)=0; ‘TOTHH(*) =0; 
TOTBP (*)=0; TOTDF (*)=0; TOTMP(*)=0; 
TOTRT (*)=0; TOTDT (*)=0; TOTMT(*)=0; 


7* BEAD IN G CARDS FOR EACH CITY, *%/ 
/* TOWR, VILLAGE OR TOWNSHIP */ 

READ FILE (IN? IL) INTO (N41); 

READ FILE (INPIL) INTO {(IN2); 

READ FILE (INPIL) INTO (IN3); 

READ PILE (INPIL) INTO (TN); 


7* DIVIDE 5 AND 10 YEAR AGE GROUPS INTO SINGLE AGES */ 


po IT = 1T0 5; PR({I,1)=PPOP(1) /S; PM(IL,1)=MPOP(1) /5; ERD; 
pO I = 6 TD 10; PP(I,1)=PPOP(2) /53 PM(I,1)=MPOP(2) /5; END; 
DO I =11 TO 153; PP(I,1)=FPOD(3) /5; PU(L,1)=BNPOP(3) /5; END; 
DO I =16 TO 2); PF(1,1)=FPOP(4) /S; PM(I,1)=MPOP(4) /5; END; 
DO I =21 TO 23; PP(I,1)=FPOP(5) /5; PM(I,1)=MPOP(5) /5; END; 
DO I =26 TO 35; PP(I,1)=PPOP(6)/10; PM(1,1)=MPOP (6) /10; END; 
DO I =36 TO 45; PP(I,1)=PPOP(7)/10; Pa (1,1) =MPOP(7)/10; END; 
DO I #86 TD 55; PF(I,1)=PPOP(8)/10; PH (I,1)=S8POP (8) /10; END; 
DO I =56 TO 65; PP(I,1)=FPOP(9)/10; PM(I,1) =BPOP(9) /10; END; 
DO I #66 TO 7); PF(I,1)=FPOP(10) /5; PH (1,1) =8POP (10) /55 EMD; 
PY (71, 1) =PPOP(11); PH (71,1) =MPOP (11) ; 
TPS = 8X THN S = FTC 
IP S = SB" "THEN Soe "2¢5 
TFS) = VEU CTHEN (Sse 83 ts 
Ir S = 'D!' THEN S = *Q"; 
TPS = CES THEN See tus 
/* CALCULATE POPULATION FOR 50 YEARS %/ 
bo I = 270 51; 
DO J = 1 TO 71; 
NGM(J) =CNN (1-1) *BMG*AGEGRPM (J, S) 5 
UGP(J)=CRM (I-1) *WHG*AGEGRPP (J,S) ¢ 
END; 
DO J = 2 TO 70; ; 
PF(],I)=PP (J-1, 1-1) -(PP(J-1, 1-1) *DF(J-1)) © AGP(J-1) 5 
PR (J,T)=P4% (3-1, 1-1) - (PM(I-1,1-1) *DH(J-1)) *¢ AGH (I-14) ¢ 
END; 
SUNM=0; SUAP=05 
DO K = 10 TO 60; 
SUMP =SONP* (B(K) *PF(K,I) #0.99); 
SOUMM=SURH¢ (B(K) *PP(K,1) 0.51); 
END; 
PF (1,1) =SUMF; Pa{1,1) =SUNA; 
PF (71,1) =PP(70,1-1)-(PP(70, 1-1) *DP(70)) ¢* SGP (70) 
+ PF(71,I-1) - (PP (71,1-1)*DP(71)) * BGP(71) 5 
PM (71,0) =PH(70, 1-1) -(P8(70, I-14) DN (70)) * MGM(70) 
# PR(71,I-1) - (PH (71,I-1) *DN(71)) * BGAN (71) 5 
EBD; 
PUT PAGE EDIT(*POPULATIOW PROJECTION FOR *, TITLE) 
(4 (25), A (26) ,4 (80) ) 5 
BEAD: 


POT SKIP(2) BDOIT((DASE(I) DO X = 1 TO 198)) ((118)A(1))3 
POT SKIP(3) EDIT(*YEAR SEX o-4 5-9 10-14 15-19 20-2 


& 25-34 35-04 85-54 55-64 65-69 70+ TOTAL POP. DENSITY PER SQ 


KR") 


(A (118); 
PUT SKIP(1) EDIT((DASH(I) DO I = 1 TO 196)) ((198)a8(1))3 
IP EOP='1* THEN GOTO ZOU; 


OTIFLE = TITLE; 

PILLB = * ¢; 

WRITE FILE (OUTPIL) PROM (O00T1); 
OcouUBeT = OCOUBT ¢ 1; 


PL/I OPTIAIZING COMPILER MARG: PROC OPTIONS (AAIN) ; 


STAT LEV AT 
7* GROUP 5; INGLE AGES BACK INTO 5 AND 10 YEAR AGE GROUPS */ 
825 7 a DO I = 170 11; 
a26 -974 d= I + (4*(I-1)); 
927 be DO = 170 5; TOTM(1,1) =TOTM(1,1) ¢PM4(K,J); 
429 142 TOTP(1,1) =TOTF(1,1) ¢#PP(K,.J); ERD; 
931 q,98 . DO S = 6 TO 10; TOTN(2,I) =TOTN(2,I) *#PM(K,J); 
433 1% 2 TOTF (2,1) =TOTF(2,1) ‘#PP(K,J); END; 
435 5 DO § #11 To 15; TOTH(3,1) =TOTM(3,1) #PM(K,J); 
437 a, of TOTF (3,1) =TOTF(3,1) *PP(K,J); END; 
439 ia DO K =16 TO 20; TOTM(4,1) =TOTN(U,1) *#P4(K,J)5 
441 1 2 TOTF(4,I) =TOTF(4,1) +PF(%,J); END; 
oui il DO K =21 TO 25; TOTM(5,IT) =TOTM(5,I) *PM(K,J); 
aus Teg TOTF (5,1) =TOTP(5,J) *PF(K,J); END; 
ou7 b lee DO £ =26 TO 35; TOTS(6,I) =TOTM(f,1) +PM(K,d) 3 
4g bad 4 TOTP(4,1) =TOTK(6,1I) *PP(K,J); END; 
651 1a DO K =36 TO 45; TOTA(7,I) =TOTA(7,1) *PM(K,J); 
453 2 TOTP(7,1) =TOTP(7,1I) *PF(K,J); END; 
455 1°71 DO < =46 To 55; TOTH(8,I) =TOTN(A,J) *#PH(K,J)3 
us7 i 2 TOTP (8,1) =TOTF(A8,I) *PP(K,J); END; 
459 i pO #56 TO 65; TOTN(9,I) =TOTM(9,1) *PM(K,J); 
461 72 TOTF(9,I) =TOTP(9,1I) ¢#PF(K,J); END; 
463 tart NO K =66 TO 70; TOTH(10,I)=TOTM(10,1) ¢PM(K,J) 5 
465 | ener | TOTF (10,1) =TOTP (10,1) *PPF(K,J); END; 
467 174 TOTS (11,1) =PM(71,J);  TOTF(11,1) =PF(71,9);5 
469 7 po < #11 T0113 
470 i. 2 FOTM(12,I) = TOTM(12,1) * TOTM(K,I); 
471 yi" 2 POT (2,1) = TOTFRG2, 1) * TOTF(K,T) 2 
472 a2 END; 
973 Pe DO « = 1T0 12; 
47y 2 TOTT(K,I) = TOTM(K,1) * TOTP(K,D; 
475 Weg END; 
/* PRINT CALCULATED POPULATION POR 50 YEARS */ 

876 : PUT SKIP(3) EDIT (TITL(I),°M', (TOTM(L,I) DO L=1 TO 12)) 

(A (4) X03) A (1) XK (3) 6 (12) P(7) 5 
477 11 DENS = TOTT(12,1) / AREA; 
478 ary Ps POT SKIP(1) ENTT (*F', (TOTF(L,I) DO L=1 TO 12), 

"ALL LAND',DENS) 

(X(7) oR (1) -X (3), (12) F (7) (3) , A (8), X (4) 6 P(8,2)) 5 
979 14 DENS = TOTT(12,1) / AREA2; 
980 1.3 IF TITLE ='SIMCOE INDIAN RESERVES‘ THEN POT SKIP(1) 


EDIT (*T', (TOTT(L,I) DO L=1 TO 12)) (X(7) .A(1) 6X (3)- 
(12)P(7))5 
oer 641 ELSE 
POT SKIP(1) EDIT ('T', (TOTT(L,I) DO L=1 TO 12), 
"AGR/RES LAND',DENS) 
(4 (7) @W(1)  X(3) 6 (12) P (7) £03) pA (12) oP (8, 2)) 5 


nz? 61) 9 DOK = 170 12; 
483 1 2 STOTS(K,I) ® GTOTA(K,I) # TOTH(K,T) ; 
aber ee 1 *2 GTOTP(K,I) = GTOTP(K,I) ¢# TOTP(K,I) ; 
085 42 STOTT(K,I) © GOTT(K,I) ¢ TOTT(K,1); 
ea6 42 Eup; 

/* WRITE YUTPOT RECORDS FOR POPULATION POR SO YEABS */ 
ae7 19 4 DOK = 170 71; 
aes 614 (2 OPIELD(K) = PM(K,J); 
aa9 12 ERD; 
€90'et tiers WRITE PILE (OUTPIL) PROM (OUT2); 
a91 4°41 OCOUNT = OCOUNT * 1; 
CIS owt DO xX = 17071; 
PEEP Cok} ys DPIELD(K) = PF(K,J); 
ago 4 2 ERD; 
495 1 1 WRITE PILE (OUTPIL) FROM (OUT2); 
496 11 OCOUNT = OCOUNT + 1; 

/7* CALCULATION WEEDED TO CALCULATE PIPULATION CENTBOID °%/ 

CE tian ka, TEMP = TOTT(12,I) © KCOORD; CX(I) = CX(I) ¢ TEMP; 
asgn tos kt TER = TOTT(12,I) * YCOORD; CY(I) = CY(I) ¢ TEMP; 
501 3 1 CTor(I) = CroT(I) ¢ froTr(12,1); 
502 1 1 BUD; 


PL/I OPTIAIZING COMPILER 


STAT LEV WT 


503 
504 
505 
506 
507 
508 
509 
$10 
$11 
512 
§13 


514 


515 
516 
ST, 
518 
519 
520 
45 | 
522 
523 
524 
§25 
526 
527 
578 
529 
530 
531 
532 
533 
534 
535 
536 
537 
538 
539 
540 
541 
542 
343 
544 
5u5 
S46 
547 
548 
549 
550 
551 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
566 
So7 
568 
569 
570 
$71 
572 
573 
5745 
575 
576 
577) 
578 
579 
580 
581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
594 
597 
598 
599 
601 
603 


ee ee ee 


- 


~2eFNNNNNA]AHO 


~ 


ARG: PROC OPTIONS (RAIN) ; 


/® KEEP FTALS OF BIRTHS, DEATHS, AND WET MIGRATION */ 


pO K = 1 TO 10; 


I = (Kel) ¢ 

DO J = 2 TO 70; 
DEArHSP (J,K) 
DEATHSN (J,K) 
WETNSIGH (J,K) 
WETMIGP (J,K) 

END; 


DEATHSP (71,K) =PF (70,I-1) *DF (70) 


(4 (K-1)) 5 


PF (J-1,I-1) * DF 
Psi (J-1,1-1) * DM 


QG-1)3 
G-1)5 


CNH (I-1) *NNG*AGEGRPS (J-1,S) 5 
CRS (1-1) ©NMG*AGEGRPP (J-1,S) 


DEATHSS (71,K) =PH(70,I-1) D5 (70) * PR(71,1-1 

NETMIGH (71,K) = CNM(T-1) *NMG*AGEGRPM (70,5) 
+ CNH (I-1) 8NBG*AGEGRPS (71,S) 3 

WETHIGP (71,K) = CNN (I-1) *NBG*AGEGRPF (70,5) 
+ CNM (IL-1) *HNG*AGEGRPP (71,5) 5 


pO L = 10 TO 60; 


BIRTHSP(L,K) = PP(L,I) * B(L) * 0.49; 
BIRIASM(L,K) = PPF(L,I) * BCL) * 0.51; 


END; 

pO L. = 1 °T0.5% 
TOTIP = 
ToTamM (1,K) = 
TOTOF (1,%) = 
TOTDA = 
TOTP = 
TOTSA (1,K) = 

END; 

DO L = 6 TO 10; 
TOT3F (2,K) = 
TOTSA 
TOTDP 
TOTIA 
TOT? 
TOTS SH 

ERD; 

po L = 11 TO 15; 
TOT3P (3,K) = 
TOT3M (3,K) = 
TOTDF (3,K) = 
TOTOS (3,K) = 
TOTNP (3,K) = 
TOTIN (3,K) = 

END; 

pO L = 16 TO 20; 
TOTAP (4,K) 
TOTBH (4,K) 
TOTDF (4,K) 
TOTOM (4,K) 
TOTHP (4,K) 
TOTYH (9,K) 

END; 

po L = 21 TO 25; 
foTi PF (5,K) ® 
ToTBA (5,K) * 
TOTDF (5,K) = 
ToTOM (5,K) = 
TOTNP (5,K) * 
TOTHA (5,K) = 

END; 

po L = 26 TO 35; 
TOT3P (6,K) * 
TOTBR (6,K) * 
TOTOP (6,K) = 
TOTDN (6,K) = 
TOTHF (6,K) = 
TOTAM (6,K) = 

END; 

pO L = 36 TO 455 
TOTBF (7,K) = 
TOTBR (7,K) = 
fOTOF (7,8) = 
POTIN (7,K) = 
TOTYF (7,K) = 
TOTAM (7,K) = 

END; 

DO L = 46 TO 55; 
TOT3F (8,K) = 
TOTBA (8,K) 
TOTDF (8,K) 
TOTON (8,K) 
TOTYP (8,K) 
TOTYA (8,K) 

EWD; . 

DO L = 56 TO 65; 
TOT3P (9,K) = 
TOTBR (9,K) = 
TOTIF (9,K) = 
TOTIN (9,K) = 
TOTYP (9,K) * 
TOTSh (9,K) = 

EWD; 

DO L = 66 TO 70; 
TOT3P(10,K) = 
TOTIN(10,K) = 
TOTOP(10,K) = 
TOTON(10,K) = 
TOTMP(10,K) = 
TOTAR(10,K) = 

END; 


(2,) * 
(2,K) = 


TOTBF(11,K) = BIBTRSF (71,K) 
TOTDF(11,K) = DEATHSF(71,K) 
TOTAP(11,K) * BETAIGP(71,K) 3 


TOTBF 
TOTBA 
TOTDP 
TOTDA 
TOTHP 
TOTAA 


TOTBP 
TOTBA 
TOTDP 
TOTDA 
TOTSF 
TOTHA 


TOTBP 
TOTBA 
TOTDP 
TOTDM 
TOTHAF 
TOTAA 


TOTBP 
TOTBA 
TOTDP 
TOTDA 
TOTMP 
TOTAA 


TOTBP 
TOTBA 
TOTDP 
TOTDA 
TOTSF 
TOTAA 


TOTBP 
TOTBA 
TOTDP 
TOTDA 
TOTHP 
TOTAN 


TOTBP 
TOTBA 
TOTDP 
TOTDA 
TOTHF 
TOTAR 


TOTBP 
TOTBA 
TOTDP 
TOTDA 
TOTHP 
TOTAN 


TOTBP 
TOTBA 
TOTDF 
TOTDS 
TOTAP 
TOTHA 


TOTBF (10K) 
TOTBA(10,K) 
TOTDP (10 ,K) 
TOTDM(10,K) 
TOTAP (10 ,K) 
TOTHS (10 ,K) 


(1,%) 
(1-K) 
(1K) 
(1,8) 
(1,K) 
(1,K) 


e+e eo 


(2,8) 
(2,8) 
(26K) 
(26K) 
(2K) 
(2,K) 


Se i nd 


(3K) 
(3,8) 
(3K) 
(3K) 
(34K) 
(3%) 


+o ee oe 


(4 oR) 
(4K) 
(44K) 
(4K) 
(4 0K) 
(8,0) 


e+e Oo + 


(5,8) 
(56K) 
(5 .%) 
(5K) 
(50K) 
(5 6K) 


erereoe ¢ 


{6 -K) 
(6,K) 
(6 6K) 
(6 6K) 
(6 oR) 
(66K) 


ere? ee 


(7 oR) 
(7K) 
(7 6K) 
(7,8) 
(76K) 
(76K) 


ete e+ 4 


(8K) 
(8K) 
(8 ,K) 
(8 /R) 
(8K) 
(8,K) 


eer eee 


(9 6K) 
(9,%) 
(9 -R) 
(9K) 
(9K) 
(9 6K) 


ee 


ere 0? 


Prac 


TOTBA(11,K) 
TOTDM(11,K) 
TOTHH(11,K) 


+ PP(71,1-1) *DP(71) 5 


)*DH(71)5 


BIRTHSF(L,X) 3 
BIRTHSA(1.,K) 3 
DEATHSF(L,K) 3 
DEATHSH(L,K) 3 
NETNIGF(1,K) 3 
RETMIGH(L,K) ¢ 


BIRTHSF(L,K) ; 
BIRTHSN(L,K) 3 
DEATHSP(L,K) ; 
DEATHSM(L,R) ; 
RETSIGF(L,K) 3 
BETHIGN(L,K) 3 


BIRTHSP(L,K) ; 
BIRTHS4(L,K) 3 
DEATHSF(L,K) 3 
DEATHSH(L,K) ; 
NETNIGP(L,R) 3 
NETHIGM(1,K) 3 


BIRTHSF(L,K) ; 
BIRTHSM(L,K) ; 
DEATHSP(L,K) ¢ 
DEATHSA(1.,K) ; 
WETAIGF(L,K) ¢ 
BETHIGA(L,K) 5 


BIRTHSF(L,R) 3 
BIRTHSM(L,K) 3 
DEATRSF(L,K) § 
DEATBSA(L,K) ¢ 
WETAIGF(L,&) $ 
BETHIGS(L,K) 3 


BIRTHSF(L,K) 3 
BIRTHSA(L,K) ¢ 
DEATHSF(L,K) ¢ 
DEATHSA(L,X) ¢ 
WETHIGP(L,R)¢ 
WETHIGA(L,K) ¢ 


BIRTHSP(L,K) 3 
BIRTHSM(L,&) i 
DEATHSF(L,K) 3 
DEATHSM(L,K) ; 
NETMIGF(L,K) 3 
WETHIGH(L,/R) ¢ 


BIRTHSF(L,K) 3 
BIRTHSH (LK) 3 
DEATHSP(L,K) 3 
DEATHS M(L,K) ¢ 
WETMIGF(L,K) 
NETNIGH(L,K) 3 


BIRTASF(L,K) 3 
BIRTHSM(L,K) 3 
DEATHSF(L,K) ; 
DEATHSH(L,K) 3 
NETSTGF(L,K) > 
WETMIGA(L,K) ; 


BIRTHSF(L,K) é 
BIRTHSE (L,K) 3 
DEATHSF(L,K) 3 
DEATHSE(L,K) 3 
WETHIGP(L,K) 3 
BETHIGH(L,K) 3 


BIRTHSS(71,K)3 
DEATHSS(71,K)3 
WETAIGH(71,K) 3 


PL/I OPTIMIZING COMPILER 


STMT LEV NT 


“7* PRIMNT TITALS OF 


/* PRIWT CALC) LATED POPULATION FOR 50 YEARS FIR SIBCOEB COUNTY 


7* PRINT TOTALS OF BIRTHS, 


SOSm ts 
606 1 2 
607 1 2 
60A 14 2 
609 1 2 
610 1 2 
Felli tp ee 
6Reat 2 
reat & 
616 1 2 
GIS F1A2 
616, 19 
617 1 2 
Cghem Tat 
615" qe 
620 1 2 
621 4 2 
ap Gy 12 
623r 1 2 
624 1 2 
625. 1 2 
626 1 2 
627 1 2 
628 1 2 
629 11 
630 11 
63s Mad 
632m) at 
633) | atieat 
eine 4 4 
6355 «1. a) 
636) ett 
637) oT 4 
638 1 1 
639m medians 
640 1 4 
64144 
Ges IG 
643. 1 0 BO: 
645 1 0 
645 11 
iG ek 
647 «1041 
648 21 3 
6690 4 
650 11 
651 1.0 
SQ inns 
Ao ae 
6su at 
655 104 
Be Oy a 
far 1 ot 
658 1 (1 
659 es 
660) aunt 
664 01) 8 
662) 030 
663) Sars 
66u OAs 


GARG: 


DOL = 1 TO 241; 
TOT3 P(12,K) 
TOTBM(12,K) 
TOT) P (12,K) 
TOTO (12,K) 
TOTMF (12,K) 
TOTHN (12,K) 

END; 

DO L = 1 TO 12; 
TOT3T(L,K) = TOTBP(L,K) ¢ 
TOTDT(L,K) = TOTDP(L,K) + 
TOTST(L,K) = TOTAMF(L,K) + 

END; 

DO L = 1 TO 12; 
STOTHP(L,K) 
GTOT BM (L,K) 
GTOT BT (L,K) 
GTOTDF(L,K 
GTOTDM(L,K) 
GTOTDT (L,K) 
GTOIMP(L,K) 
GTOT AA (L,R) 
GTOI HT (L,K) 

END; 


TOTBF (12,K) 
TOTBN(12,K) 
TOTDF(12,K) 
TOTDM(12,K) 
TOTMP(12,K) 
TOTBA(12,K) 


Le ee) 


GTOTSF (L,K) 
GTOTBS (L,K) 
GTOTBT (L,K) 
GTOTDF (L,K) 
GTOTDA(L,K) 
GTOTDT (L,K) 
GTOTSP (L,K) 
GTOTMM (L,K) 
GTOTNT (L,K) 


Hnnhen nnn 


IP K=1 THEN 
IF K=5 THEN 
IF K=9 THEN 
PUT SKIP (3) 


chit ADING; 
cath ADING; 
CAL ADING; 
EDIT (rrr(K),¢ 


PROC OPTIONS (HAIN); 


+o + eee 


TOTBP(L,K) ; 
TOTB™ (L,K) ; 
TOTNF(L,K); 
TOTDM(L, K) 
TOT4P (L,K) 
TOTMS(L,K) 3 


TOTBM(L,K) ; 
TOTDA(L,K) ; 
TOTMB(L,K) ; 


e+e e+e eee 


TOTBF (L, K) 
TOTBA (L, K) 
TOTST(L,K) 
TOTDP(L, K) 
TOTDM (L, K) 
TOTDT (L, K) 
TOTMF (L, K) 
TOTMM (L,K) 
TOTAT(L,K) ; 


ee we oe we se ee we oe 


ila DEATHS ABD WET BIGRATION */ 


BIRTHS BY AGE a . 


( TITBA(L, | L=1 TO 12)) (C8) A (22) 6 (92) P07) 


PUT SKIP(1) ED 
( T) TBP (L,k) 

PUT SKIP(1) EDIT ('T 
(X (22) -A (4), (12) F(7))5 

PUT SKIP(2) EDIT (*DEATHS', 


('OP MOTHER 


"8", ( TOTDS(L,K) 


DO L=1 zD Li eo SIN ECP RE TET 
',( TOTBT(L,K) DO L=1 TO 12) 


(X(5) 8 (6) -X (10) 4A (1) X( 3), (12) P(7)) 


PUT SKIP(1) EDIT ('P 
(X(22) 4 N (4), (12) F(T) 5 
PUT SKIP(1) EDIT ('T 
(X (22) ,K(4), (12) P(7)) 5 
POT SKIP (2) EDIT 
DOL 
PUT SKIP(1) EDIT ('F 
(X(22) 8 (4), (12) PT) 
POT SKIP(1) EDIT ('T 
(X (22) -B(4) 6 (12) PF (7) ) 5 


ERD; 
GOTO 


READ; 


TITLE = ‘SIGCOE CONNTY 


po tT = 1 TO 113 


PUT SKIP (3) 


(‘NET SIGBATION 4 
=1 TO 12)) (X(6) ,A (20), (12) P(7)) 5 
‘, ( TOTHP(L,K) DO L=1 TO 12)) 


', ( TOTDF(L,K) DO L=1 TO 12)) 


«( TOTDT(L,K) DO L=1 TO 12)) 


*, ( TOTMA(L,K) 


*, ( TOTAHT(L,K) DO L=1 TO 12)) 


EDIT (TITL(I),‘M', (GTOTS(L,I) DO L=1 TO 


(A (4) 6X (3) oR (1) oe K(3) 6 (V2) F(T) D5 
DEKS =GTOTT(12,T) / 4842.5; 


PUT SKIP(1) 
"ALL LAND*',DENS) 


(X (7) A (9) (3), (129 (7), RASH E NBN ESSN Z® the 2))5 
7 2906.24; 
EDIT ('T', (GTOTT (L,I) 


DENS =GTOTT (12,1) 
PUT SKIP{(1) 


"AGR/RES LAND',DENS) 


EDIT ('F*, (GTOTF (L,1) 


DD L=1 TO 12), 


DI L=1 TO 12), 


(XK (7) oA (1) 6 X (3) 6 (12) P (7) 6 (3) A (12) , F (8, 2)) 5 


ERD; 


DO K = 17TO 10; 


IF K = 1 THEN CALL HEADING; 
IP K = 5 THEN CALL HEADING; 
IP K = 9 THEN CALL HEADING; 
PUT SKIP {3) EDIT (TIT(K),° 
(GT) TBN (L,K) 
PUT SKIP(1) EDIT ("OF MOTHER 
(GT) TBP (L,K) 
PUT SKIP(1) EDIT ('T 
UR(aZV at) CLA) PETADS 
PUT SKIP(2) EDIT (*DEATHS®, 


BIRTHS BY AGE 
DO L=1 TO 12)) (ACH) 4A (22), (12) F(T) 3 


A oF 


DO L=1 To ey sain Rd toRriaey eds: 
»(GTOTBT(L,K) DO L=1 TO 12)) 


(X (3) oh (6) 4X (10) oA (1) 6 X(3), (12) P (MDG 


POT SKIP(1) EDIT ('F 
(X (22) A (4) 6 (12) FID) 
PUT SKIP(1) FDIT ('T 
(1 (22) 2A (4), (12) F(T) D5 
PUT SKIP (2) 


*, (GTOTDF(L,K 


EDIT (‘NET MIGRATION 5 


DO L=1 TO 12)) 


*, (GTOTDT(L,K) DO L=1 TO 12)) 


*, (GTOTAS (L,K) 


DO L #1 TO 12)) (£(6) ,-A(20), (12) P (715 


PUT SKIP(1) EDIT ('P 
(2 (22) ,R(4) 6 (12) PO) 
POT SKIP(1) EDIT ('T 
(4 (22) R19), (V2) PODS 


ERD; 


» (GTOTHP(L,K) DO L=1 TO 12)) 


*, (GTOTAT(L,K) DO L=1 TO 12)) 


DO L=1 TO 12)) 


=/ 


12)) 


DEATHS & WET MIGRATION FOR SIACOE COUNTY */ 


‘a’, (GTOTDA(L,K) DO L=1 TO 12)) 


PL/I OPTIMIZING COMPILER BARG: PROC OPTIONS (@AIN) ; 


STMT LEV HT 


= = 


N= 


ooo 


/* PRINT POPULATION CENTROID FOR COUNTY FOR 50 YEARS */ 


PUT PAGE EDIT(*SIMCOE COUNTY POPULATION CENTROID') 
(X (13) ,A(33))3 
PUT SKIP{1) EDIT ((DASH(I) DO IY = 1 TO 33)) (X(13), 
(33) A(1))3 
PUT SKIP(4) EDIT ("POPULATION CENTRIID IS LOCATED: °) 
(A (31)); 
DO = 1Ft TOW its 
TENP = CX(I) / CTOT(I); TEMP2 = CY(I) / CTOT(TI) 5 
PUT SKIP(3) EDIT (TEMP,*KMSS WEST AND',TEMP2,"*KMS SOUTH 
OF MIDHURST IN*,TITL(I),*-") (X(2),P(6,2) -X(1),A(12) ,X(1) ,F (6,2), 
X(1),A(28) ,X(1) ,A(4),A(1))5 
END; 
GOTO DONE; 


READING: PROCFDURF; 
PUT PAGE EDIT (BIRTHS, DEATHS AND NET MISRATION FOR', TITLE) 
(1 (26), A (36) ,X(1) 4A (80) ) 
PUT SKIP(2) EDIT ((DASH(I) DO I = 1 TO 119)) ((110)A(1))3 
0-4 5-9 


PUT SKIP(1) EDIT (* YEAR SEX 10 
~-14 15-19 20-24 25-34 35-44 45-54 55-64 65-69 70+ TOTAL") 
{A (110) )¢ 


PUT SKIP(1) EDIT ((DASH(I) DO I = 141 TO 110)) ((110)A(1))¢3 
END HEADING; 
DONE: 
FUT PAGE EDIT ("TOTAL RECORDS WRITTEN® ,OCOUNT) 
(A (21), X (2) ,P(5))3 
END MARG; 


PL/I OPTIMIZING COMPILER 


COMPILER 


ERROR ID 


COMPILER 


IELO5331 


IBLO9O6T 


ARG: 


DIAGHOSTIC BESSAGES 


L STST 


BESSAGE DESCRI PTION 


INFORAATORY MESSAGES 


wo 


*DECLARE* 


3 TATESENT(S) 


I 398, 399, 508, 509, 513, 513, 514, 518 


EBD OF COSPILER DIAGHOSTIC MESSAGES 


COBPILE TIRE 


0.85 


STAT LEV NT 


1 0 
ze 100 
3 10 
4 1 0 
5 1 0 
6 7 70 
7 Ta8 


BIBS 


MAR 


7* PROGRAM TO CALCULATE PROJECTED 
UNIVERSITIES FROM SIMCOE COUNTY. 


/* (1976 PRRCEMTAGES ARE USED) 


S?ILL FILE: 


SOURCE LISTING 


G: 


PROC OPTIONS 


(RAIN) ; 


DCL INPIL FILE REZORD INPUT; 


DCL 


DCL 


DCL TITL (11) CHAR(%) STATIC IWIT (°1976° 


1 IN1 STATIC, 

2 POPN(71) PIXED(7); /* 
1 IN2 STATIC, 

2 POPP(71) PIXED(7); /* 
1 IN3 STATIC, 

2 TITLF CiAR(50), /* 
2 PILL CHAR (234); 
UNDERVAR FIXPD (5) 
UNDERIAF FIXED (5) 
OVER 28¥ PIXFD(5) 
OVER 2AP FIXED (5) 
ALLN PIXED(5) 
ALLP FIXED (5) 
FPERCRNIR (14) PIXED(7,5) 


FP2RCENTF (14) 
PPERCENTS (14) 
PPERCENTP (14) 


PENROLS (15) 
PENROL? (15) 
FENROLT (15) 
PENROLN (15) 
PFNROLP (15) 
PPNROLT (15) 
TENROLN (15) 
TRNROLP (15) 
TRNROLT (15) 


FGTOTN (15,11) 
FGTOTP (15,11) 
FGTOTT (15,11) 
PGTOTS (15,11) 
FGTOTF (15,11) 
PGTOTT (15,11) 
TGTOT4 (15,11) 
TGTOTP (15,11) 
TGTOTT (15,11) 


PIXED(7,5) 

FIXED(7,5) 

FIXFD (7,5) 

PIXED(11,5) 
PIXED(11, 5) 
PTXED(11, 5) 
FIXED(11,5 
PIXED(11,5) 
PIXED (11, 5) 
FIXED(11,5) 
PIXFN(11,5) 
PIXEN(11,5) 
FIXED (11,5) 
PIXYED(11,5) 
FIYFD(11,5) 
PIXED(11,5) 
PIXFD(11, 5) 
PIXED(11,5) 
PIXED(11, 5) 
PIXFD(11,5) 
FIXED(11, 5) 


POR ‘SYSPRIKT',*I','J! 


107 RECORDS, SIZE 


PROC OPTIONS (MAIN); 


of KP, tL 


DATA CONVERSION WILL BE DOWE BY SUBROUTINE > ALL. 


$051 


ENROLSENT IN JNTARIO 


AUGUST 1978. /.- 


se 


/* INPUT PILE */ 


RALE POPULATION */ 


PESALE POPOLATIOWN */ 


BASE OF CITY, TOWN, VILLAGE, 
7* TOWNSHIP 


OR */ 
<7. 


STATIC, 
STATIC, 
STATIC, 
STATIC, 
STATIC, 
STATIC, 
STATIC, 
STATIC, 
STATIC, 
STATIC, 
STATIC, 
STATIC, 
“STATIC, 
STATIC, 
STATIC, 
STATIC, 
STATIC, 
STATIC, 
STATIC, 
STATIC, 
STATIC, 
STATIC, 
STATIC, 
STATIC, 
STATIC, 
STATIC, 
STATIC, 
STATIC; 


0119869", *1986",°1991", 
*1996*,*2001%,*2006",'2011', 
*2016%,*2021*,'2026"); 


PL/T OPTIMIZING COMPILER HARG: PROC OPTIONS (BAIN); 


STAT LEV NT 


8 14 O DCL DASH(127) CHAR (1) STATIC; 

Ch sy PPERCENTS (1)=0.00003; FPPFRCENTP (1) =0.00000; 
11 1270; FPEPCENTN (2) =0.01482; FPERCENTP (2) =0.03012; 
13 ia 0 FPERCENTA (3) =0.09372; FPERCENRTP (3) =0. 13037; 
ise, “18-0: PPEPCENTM (4) =0.13307; FPERCENTF (4) =0.14055; 
sh eh fy FPEPCENTM (5) =0.12353; PPERCENTP (5) =0.11233; 
19 1 0 PPRRCENTM (6) =0. 10668; PPERCENTF (5) =0.05933; 
2* 67) 0 PPERCENTM (7) =0.04716; PPERCENTF (7) =0.02995; 
7 a a) PPERCENTA (8) =0.03593; PPERCENTF (3) =0. 00864; 
26). 150 FPFRCENTM (9)=0.01344; FPPERCENTF (9) =0.01064; 
prim EL fi) PPERCENTM( 10) =0.00916; PPERCENTP (12) =0.00564; 
25 ailen0 FPERCFNTM( 11) =0.00611; FPERCENTF(11) =0. 00188; 
tie oY) FPERCZNT( 12) =0.00487; PPERCENTP(12) =0.00564; 
3a) 12 °0 PPERCENTM( 13) =0.00075; FPERCENTF (13) =0.00042; 
36 «1«0 PPERCENTA( 14) =0.00006; PPERCENTP (14) =0.00006; 
37 10 PPERCFNTN (1) =0.00000; PPERCENTF (1) =0.00003; 
39 «10°00 PPPRCENTA (2) =0.00000; PPERCENTF (2) =0.00000; 
41 1 0 PPERCENTM (3)=0.00000; PPERCENTP (3) =0.00000; 
“ar 19 0 PPERCENTM (4%) =0.00112; PPERCENTF (4) =0.00403; 
a5 1 0 PPEZRCENTM (5) =0.00618; PPERCENTF (5) =0.00634; 
awe 170 PPERCENTM (6) =0.00618; PPERCENTP (6) =0.00979; 
89 1°00 PPERCENTS (7) =0.00505; PPERCERTP (7) =0.00806; 
Cy a ee) PPERCENTN (8)=0.00281; PPERCENTP (8) =0.00691; 
53 1 0 PPERCENTM (9) =0.01222; PPERCENTP (9) =0.01440; 
55 1m0 PPERCENTH( 10) =0.01161; PPERCENTF (10) =0.01879; 
eh 1 0 PPEPCENTA( 11) =0.00489; PPERCENTF (11) ©0.01691; 
s9) 1) 0 PPEPCENTM( 12) =0.01038; PPERCENTF (12) =0.018163 
61 17 0 PPERCENTS( 13) =0. 00340; PPERCENTP( 13) =0.00626; 
63 “t0 PPERCENTA( 14) =0.00003; PPERCENTF(14) =0.00014; 
65 10 PGTOTR (*) =0; PGTOTA (*) =0; TSTOTS (*) =0; 
68 1 0 FGTOTF(*)=0; PGTOTP (*) =0; TGIOTP (*) =0; 
wn a0 FGTOTT (*) =0; PGTOTT (*) =0; TSTOTT (*) =0; 
74 1 0 DASH (*)="_ "5 
7) Ar 0 OPEN FILE (INPIL) INPUT; 

Te ‘iO ON ENDPILE (INFIL) BEGIN; 

Wigtomer}- lt) TITLE = *SIBCOR COUNTY 

78 #2 «0 GOTO E2J; 

79° 2«2«2:~«OO END; 

80 1 0 READ1: 

READ PILE (INFIL) INTO (IN3); 
81t 1% 0 J = 0; 
82 ia READ2: 
READ PILE (IWPIL) INTO (IN1); 

81 1 0 READ PILE (INPIL) ITO (IR2); 

AY 70 Desa 1 

85 1 0 FERROLS (*) =0; PERROLA(*) =0; TENROLN (*) =0; 
68% 1% 0 PENROLP (*) =0; PESROLF(*) =0; TEUROLP(*)=0; 
91 #40 PENROLT (% =0; PEBROLT(*%) =0; TEWBOLT (*) =0; 
oom 190) UNDERISM=); OVER288=0; ALLB=0; 
97 1.0 UNDER 1BP=0; OVER26P=0; ALLF=0; 
100 1a.) DO I = 1 FO 18; 
101 hha! UNDER138 = ONDER188 * POPA(I); 
102) 45 4 UNDERI3P = ONDER1GF ¢ POPP(TI) ; 
103 al PND; 
104 1 0 DO I = 30 TO 71; 
Meee 4h Kl) OVER284 = OVER2AS * POPHM{I) ; 
106 m4 OVER28P = OVER28P * POPP(I) ; 
som 154 END; 
10R 261 «OO po I = 1f0 71; 
VOSie - eat ALLS = ALLS * POPS (I); 
110 14 ALLP = ALLP * POPP (I); 
111 4 END; 
112, 0«1=OO FERROLA (We = UNDERIGN * PRERCENTH (1) ; 
113 1.0 FENROLP(1) = UNDER16P * PPERCENTF (1); 
TAG “Te 6 PENROLS (1) = UNDER18H * PPERCENTR (1) ; 
V5 190 PENROLP (1) = UNDER16P * PPERCENTF (1) ; 
116 0 DO I = 2? TO 12; 
V17 if 1 FENROLY (T)=POPS(I¢17) * PPERCENTH (I); 
17180 44 FEWROLF (I) =POPP(I+17) * PPERCENTP (I); 
119 te PEWROLM (I) =POPM(I¢17) © PPERCPNTH (I); 
Tos “4 PEWROLP (I) =POPP(I¢17) © PPERCENTF (I); 
1255 30 EWD; 
123m N56) FRNKOLA(13) = OVER26M © PRERCENTM (13) 3 
taser 18 16 FENROLF (13) = OVER28P * FPERCENTF (13); 
124 1 0 PENROLN (13) = OVER28® ® PPERCENTM (13); 
125— 17 0 PZNROLP (13) = OVER28P © PPERCENTP (13); 
ize 1870) PENROLN (13) = ALLA © PPERCRNTM (14) ; 
120) “WEG PENROLP (14) = ALLF * PPERCENTP (14) ; 
1287 14 0 PENROLS (14) = ALLA * PPERCENTH (14) ; 
W29% “4h 6 FENROLP (1%) = ALLP * PPERCENTP (14); 
130 #10 DOI = 170 14; 
131 wt FENROLY (15) = PENROLA(15) * PENROLB(T)3 
Vom vet PENROLP (15) = PRNROLP(15) * PEWROLP (I); 
133) #1) 41 PENROLY (15) = PEWROLH(25) ¢ PENROLM (I); 
134 ya) PENROLP (15) = PENROLP (15) ¢ PEWROLF (I); 
1355 4a 1 END; 

1360 1 OOO po tT = 170 15; 

137 ut 4} PERROLT (I) = PERBOLN(I) ¢ PEYROLP (I); 
1380 oP 4 PENROLE (I) = PEXROLA(I) © PENROLP(I); 
139 «44 TENROLS (I) = PEWROLW(I) * PENROLM (I); 
1440 #4 1 TENROLP (I) = PRWROLP(T) * PENROLP (I); 
Ate 4-4 TENROLY (I) = PEWROLT(I) ¢ PEWROLT (I); 
va24 9 ERD; 

183 «= «1~(«OO IF J=1 THEB CALL BEADING; 


PL/I OPTIMIZING COMPILER SARG: PROC OPTIONS (MAIR); 


STAT LEV WT 


146 4) 50 IF J=5 THRN CALL HEADING; 
15 “10 IF J=9 THEN CALL HEADING; 
146 «1 =«O PUT SKIP(3) EDIT (TITL(J),*PULL-TIMF','H', (PENROLS(K) DO K 
=1 TO 15)) (A(4) ,X (2) 6K (9) 4 X(3) -A (1) oT (3) (15) PCM) ) 
VHT a0 PUT SKIP(1) EDIT (*P', (PENROLP (K) DO K=1 T9 15)) 
(% (18), 8(1) 6K (3) 6 (15) F(T) 5 
148 #1 °0 PUT SKIP(1) EDIT ('T', (PENROLT(K) DO K=1 TO 15)) 
(X (18), A (01) 6X03), (15) P(A) DS 
kn er) PUT SKIP(2) EDIT (*PART-TIME', 'M', (PENPOLN(K) DO K 
=1 TO 15)) (0 (6) -4(9) ,X(3),A4(1) X (3), (15) P(7)) 
150 1 «0 PUT SKIP(1) EDIT (*P',(PENPOLF (K) DO K=1 TO 15)) 
(X (18), ACN) eX (3) (15) PCT) 5 
1S1 1°60 POT SKIP(1) EDIT ('T', (PENROLT(K) DO K=1 TO 15)) 
(X (18), A (1) -X (3) - (15) P(7)) 5 
752 40 PUT SKIP(2) EDIT (*TOTAL','S', (TENROLN(K) DO K=1 TO 15)) 
(1 (6) 64 (5) -X(7) -A (1) X(3) 6015) P(7)) | 
TSAes PUT SKIP (1) FNIT ('P*, (TENROLP(K) DO K=1 TO 15)) 


(£18), A (1) 6X (3) 6 (1S) P(7) 5 


154 1 =«~O PUT SKIP(1) EDIT ('T*,(TENROLT(K) DO K=1 9 15)) 
(X (18) ¢K(1) 6X (3) - (15) P (7) )3 
155 1 0 pO I = 1TO 15; 
$6079) 4 PGTITM(I,J) = PSTOTM(I,J) # PENROIM (I); 
(S29 94 FGTITP(I,J) = FGTOTP(I,J) # PENPOLP(TI); 
ASA 14 FGTITT(1,J) = FGTOTT(I,J) * PENROLT (I); 
15990 Lid PGTOTM(I,J) = PGTOTM(I,J) # PRNROLM(T); 
1600 ented PGTOTF(T,J) = PSTOTP(I,J) # PENROLP (I); 
RAIL pete PGTOTT(I,J) = PGTOTT(I,J) # PENROLT (I); 
Ge EL) TGTOTA(I,J) = TGTOTMN(I,J) * TRNROLM(T); 
D6 3p eset TGTOTP(I,J) = TSTOTP(I,J) # TENROLP (I); 
16u 104 TGTOTT(I,J) = TGTOTT(T,3) * TENROLT (I); 
165 #1 1 END; 
56hRT EEO TF J=11 T1FN GOTO READ1; 
167 1 «0 ELSE GOTO READ2; 
168 1 0 £0J: 
DO J = 170 11; 
169 #1 4 IP J=1 THEN CALL WEADIKG; 
ag = 4) IP J=5 THEN CALL HEADING; 
ATi) tt IF J=9 THEN CALL HEADING; 
Wa) a 4d PUT SKIP(3) FDIT (TITL(J),"FULL-TIME','M', (FCTOTH(K,J) DO K 
21 TO 15)) (ACS) 6X (2) 6A (9) 6 (3) oA (1) 6X (3) 6 (15) PC 7)) 
vue a) 4 PUT SKIP(1) PDIT (*F',(FGTOTF(K,J) DO K=1 TO 15)) 
' (X (18) 6A (1) 4% (3), (15) P (7) )5 
wo Pe PUT SKIP(1) EMIT ('T', (PGTOTT(K,J) DO K=1 TO 15)) 
(1 (18), A(1) 6X (3), (15) PCM) 5 
Hat al Gl PUT SKIP(2) EDIT (* PART-TIME’, °H', (PGTOTA(K,J) DO K 
=1 TO VS)) (X(6) -A (9) -X(3) A (1) 6X (3), (15) P(7)) 5 
5760 tet PUT SKIP(1) EDIT ('F', (PGTOTF(K,J) DO K=1 TO 15)) 
(% (19) A (4) XK (3) 6 (15) P (7) 5 
Ah «ya PUT SKIP(1) EDIT ('T', (PGTOTT(K,J) Do K=1 TO 15)) 
(£18), (1) -X (3) 6 (15) F(T) ) 5 
To a) : PUT SKIP(2) EDIT (*TOTAL',*%*, (TGTOTM(K,J) DO K=1 TO 15)) 
(% (6) o& (5) 6X07) - AC) 2X (3) 6 (95) P(7)) : 
179" 90) 4 PUT SKIP(1) EDIT (*F',(TGTOTP(K,J) DO K=1 TO 15)) 
(X(18),A (1) 6X03) 6 (15) P (7) 5 
140) 41 PUT SKIP(1) EDIT ('T', (TGTOTT(K,J) DO K=1 TO 15)) 
(X (18), A (1) -X (3) (15) P (7) ) 5 
187: 4. 4 END; 
182-1 «OO GOTO DONE; 
183. 1 O HEADING: 
PROC FDORE; 
Math ele el FUT PAGE EDIT ("PROJECTED EMROLMENT IN ONTARIO OMIVERSITIES PRO 
M*, TITLE) (X(20),A (48) ,X(1) -A(50))5 
ye5 2 «OO PUT SKIP(2) EDIT ((DASH(I) DO I=1 TO 127)) ((127)A(1)); 
1R60 20 PUT SKIP(1) EDIT (*UNDER',*OVER*) (X(24) ,A(5) -X(80) -A(4)) i 
187 2) 00 PUT SKIP(1) EDIT ("YEAR SEX 18 18 19 
20 21 22 23 24 25 26 27 28 28 
WR TOTAL') (2(127)); 
188 62 («OO PUT SKIP(1) EDIT ((DASH(I) DO I=1 TO 127)) ((127)a(1))3 
1aA9 20 END HEADTYG; 
190 1 0 DONE: 


EBD RBARG; 
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PL/I GPTIBIZIBG CONPILER 


OCL 80. IDENTIFIER 


6 ; ALL?- 

6 ALLS 

) DASH 

190 DORE 

168 BC) 

6 PEWROLP 

6 PERROLA 
6 PEWROLT 
6 PGTOTF 

6 PGTOTA 

6 PGTOTT 

5 PILL 

6 YPERCERTF 
6 PPEBCENTS 
183 BEADIEG 


eeescess T 


2 IpriIL 
3 Int 
& In2 
5 In3 


eeeseteos J 


- 


RARG 
OVERZ6PF - 
OVER25& 
PERROLP 
PEWEOLA 
PEBROLT 
PGTOTP 


PGTOTR 


PGTOTT 
POPP 
POPAR 


PPERCERTP 


eo fn w 8 


PPERCERTS 
80 READ? 
82 READ2 


ee cesses SYSPRI#T 


TEZUROLP 
TEVROLA 
TEMROLT 
IGTOTP 
TCTOTA 
IGTOTT 
TITL 
TITLE 


GUDER IOP 
GSDER IGA 


eonwr-+aAcse8# A & & & 


MBG: PROC OPTIOBS (BATH) ; 


CROSS-REYEREUCE TABLE (POLL) 
REPERERCES 


99,110,110,127,129 

96,109, 109,126,128 

74,185,188 

182 

78 

88,113,118, 123, 127,132,132,132,137, 180,187,157 
85,112,117,122, 126,131,131,131, 137,139, 186,156 
91,137, 181,108, 158 

68,157,157,173 

65, 156,156,172 

71, 158,158,178 


10,12, 14,16, 18,20, 22,24, 26, 28,30, 32, 38, 36,113,118, 123,127 

9411013415517 4 19 9214 23925627429 931433, 35,112,117, 122, 126 

103,188,195, 1694176, 171 

100,100,101, 102, 108, 108,105, 106,108,108, 109, 110,116,116, 117,117, 117,118,118, 
116,119,119, 119,120, 120,120, 130,130,131, 132,133, 138,136, 136,137, 137,137,138, 
138,138,139, 199,139, 100,190, 180,181,141, 181,155,155, 156, 156, 156, 157,157,157, 
158,158,158, 199, 159, 159, 160, 160,160, 161,161, 161, 162, 162, 162, 163, 163,163,164, 
164,164,185, 1865, 185, 188, 188, 188 

75,76,80,82,83 

82 

63 

80 

81, 85,85,103,194,185,146,156,156, 157,157,158, 158, 159, 159, 160,160,161, 161, 
162, 162,163, 163, 168, 168, 166, 166,168, 169, 170,171,172, 972,173,178, 175,176,177, 
178,179,180 

106, 186, 186, 187, 187, 187, 108, 168,188,189, 189,189,150,150, 150,151, 151,151,152, 


452, 152,153, 153,153, 158, 158, 158,172,172, 172,173,173 ,173, 178,178, 174,175,175, 
175,176,176, 176,177, 177,177 ¢178,178,178, 179,179,179, 180, 160, 180 


98,106, 106,123,125 

95, 105,105,122, 124 

69, 115,120,125, 129,134,138, 138,138, 180,150,160 

86, 118,119,128, 128,133,133, 133, 138,139,189,159 
92,138,181,151,161 

69, 160,160,176 

66, 159,159,175 

72, 161,161,177 

102, 106,110, 118, 120 

101,105,109, 117,119 

38,80, 82,88, %6,88,50,52, 58, 56,58,60,62,6%, 195,120,125, 129 
379 39481483485 587 489 654_ 53655457459 561 563, 118, 119,125,128 
166 

167 


186,187, 188, 189, 150, 151,152, 153,150,172, 173, 178,175,176, 177,176, 179,180,188, 
185,186,187, 188 


90, 180,153,163 
67,139, 152,162 
93,141,158,168 
10, 163,163,179 
67, 162,162,178 
73, 169,168,180 
186,172 

77, 184 


97,102,102,113, 115 
98,101, 161,112,118 


PL/I OPTIMIZING COMPILFR BARGs PROC OPTIONS (MAIN) ; 


AGGREGATE LENGTH TABLE 


DCL NO. IDENTIFIER LVL DIMS OFPSET ELEMENT TOTAL 
LENGTH. LENGTH. 
8 DASH 1 1 127 
6 PENROLP 1 6 90 
6 PENROLM - 1 6 90 
6 FENROLT 1 6 90 
6 FGTOTP io oe . 2 6 990 
6 PGTOTM 2 6 990 
6 FGTOTT 2 6 990 
6 PPERCENTF 1 ; Tae 56 
6 FPERCENTS 1 4 56 
3 11 1 284 284 
POP 2 1 4 284 
a IN2 1 284 284 
POPF 2 1 4 284 
5 IN3 1 284 284 
TITLE 2 50 
FILL 2 50 234 
6 PENROLF 1 6 90 
6 PENROLS 1 6 90 
6 PENROLT 1 6 90 
6 PGTOTF 2 6 990 
6 PGTOTH 2 6 990 
6 PGTOTT 2 6 390 
6 PPERCENTP 1 4 56 
6 PPERCENTH 1 4 56 
6 TENROLP 1 6 90 
6 TENROLM 1 6 90 
6 TENROLT 1 6 90 
6 TGTOTF 2 6 990 
6 TIGTOTHA 2 6 990 
6 TGTOTT 2 6 990 
7 eerie 1 4 44 
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COMPILER DIAGNOSTIC MESSAGES 


ERROR ID L STMT MESSAGE DESCRI PTION 


COBPILER INPORMATORY MESSAGES 


IELO5331 I NO *DECLARE* STATEMENT(S) FOR *SYSPRINT*,°J',*I','K'. 


END OF COMPILER DIAGNOSTIC MESSAGES 
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APPENDIX IV 


AGE AND SEX DISTRIBUTION 


OF NET MIGRATION 


BY 


STAGE OF DEVELOPMENT 


(from reference 3) 
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NET MIGRATION BY AGE AND SEX FOR STAGE B 
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Age Male Female 
0-5 0.1319 0.0998 
5-10 0.0599 0.0706 
10-15 0.0144 0.0415 
15-20 0.0323 0.0608 
20-25 0.0848 0.0942 
25-30 0.0900 0.0638 
30-35 0.0310 0.0043 
35-40 -0.0099 0.0085 
40-45 0.0322 0.0375 
45-50 0.0186 0.0080 
50-55 -0.0014 0.0061 
55-60 0.0068 0.0093 
60-65 0.0022 0.0002 
65-70 -0.0104 0.0036 
70-75 0.0050 0.0040 
75-80 -0.0021 0.0078 
80-85 0.0002 0.0069 
85+ -0.0042 -~0.0082 
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25 - 30 
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60 - 65 
65 - 70 
70 - 75 
75-80 
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FE 
Age Male Female 
O*5 0.0242 0.0242 
5-10 0.0252 0.0252 
10-15 -0.0641 -0.0641 
15-20 -0.0777 + -0.0777 
20-25 0.2539 0.2539 
25-30 0.2252 0.2252 
30-35 0.1124 0.1124 
35-40 -0.0913 =0:0913 
40-45 0.0544 0.0544 
45-50 0.0385 0.0385 
50-55 -0.0265 -0.0265 
55-60 0.0154 0.0154 
60-65 -0.0195 +-0:0195 
65-70 0.0027 0.0027 
70-75 0.0100 0.0100 
75-80 0.0079 0.0079 
80-85 0.0209 0.0209 
85+ 0.0116 -0.0116 
F=]1.0000 
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NET MIGRATION BY AGE AND SEX FOR STAGE E 
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-0.0197 
0.0976 
0.2212 
0.2115 
-~0.1400 
-0.2148 
-0.0074 
0.1745 
0.0554 
0.0398 
0.0628 
0.0152 
0.0185 
0.0164 
0.0037 
—0.0004 
-0.0113 
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Female 
-0.0112 
0.1186 
0.1972 
0.1358 
-0.2082 
-0.1493 
0.0666 
0.1734 
0.0473 
0.0432 
0.0282 
0.0014 
0.0218 
0.0129 
-0.0009 
0.0042 
-0.0156 
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APPENDIX V 


FLOWS DIRECT FROM 


HIGH SCHOOLS 


TO 


POST-SECONDARY PROGRAMS* 


FOR 


SELECTED COUNTIES 


AND YEARS 


* actually universities - because the CAAT data was not 
available except in a form requiring more effort than 
waS available. We're sorry. 
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